R语言ggplot2调整图例的大小 r中ggplot2_mob6454cc6aeeaf的技术博客_

link之家

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

相关文章推荐

无邪的夕阳 · 合肥工业大学关于2024年博士生指导教师增选 ...· 4 周前 ·

坏坏的皮蛋 · 武汉理工氢电：去年营收同期增长近一倍，今年订 ...· 9 月前 ·

不敢表白的牛肉面 · 网络安全--ESP8266烧录、测试、擦除W ...· 1 年前 ·

细心的蟠桃 · 哥布林洞窟百度云 - 百度· 1 年前 ·

爱运动的围巾 · 沈跃跃出席上海合作组织国家儿童画展开幕式、会 ...· 1 年前 ·

001、基础绘图

type <- c('A', 'B', 'C', 'D', 'E', 'F', 'G')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)            ## 生成的测试数据框
ggplot(df, aes(type, weight = nums))  + geom_bar()    ## 使用ggplot绘图

绘图结果如下：

R语言ggplot2调整图例的大小 r中ggplot2_测试数据

002、给柱状图添加颜色

ggplot(df, aes(type, weight = nums, fill = type))  + geom_bar()   ## 利用fill选项添加颜色

R语言ggplot2调整图例的大小 r中ggplot2_边距_02

003、修改绘图输出的顺序

a、只修改原始数据顺序

type <- c('F', 'B', 'G', 'D', 'E', 'A', 'C')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)      ##  测试数据保持不变，只修改顺序
ggplot(df, aes(type, weight = nums))  + geom_bar()

如下为绘图结果，可见绘图顺序并不是按照原始数据中的顺序输出，而是改变了顺序：

R语言ggplot2调整图例的大小 r中ggplot2_边距_03

b、使修改原始数据后，绘图的输出顺序保持不变：

type <- c('F', 'B', 'G', 'D', 'E', 'A', 'C')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)     ## 测试数据保持不变，只修改顺序
df$type <- factor(df$type, level = df$type)    
ggplot(df, aes(type, weight = nums))  + geom_bar()

R语言ggplot2调整图例的大小 r中ggplot2_测试数据_04

004、手动指定输出柱状图的颜色

type <- c('A', 'B', 'C', 'D', 'E', 'F', 'G')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)
col <- c("red", "blue", "green", "cyan", "purple", "black",     ## 此处设定颜色
         "magenta")
ggplot(df, aes(type, weight = nums))  + geom_bar(fill = col)    ## 绘制柱状图

绘图结果如下，可以看到颜色输出已经按照指定的颜色输出了：

R语言ggplot2调整图例的大小 r中ggplot2_测试数据_05

005、根据判断语句设定颜色：

type <- c('A', 'B', 'C', 'D', 'E', 'F', 'G')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)             ## 测试数据保持不变
ggplot(df, aes(type, weight = nums))  + 
  geom_bar(fill = ifelse(df$nums > 20,'red','blue'))   ## 利用判断语句输出颜色

绘图结果如下：

R语言ggplot2调整图例的大小 r中ggplot2_边距_06

006、设置柱状图绘图的宽度

a、使用width参数设置为：0.3

type <- c('A', 'B', 'C', 'D', 'E', 'F', 'G')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)     ## 测试数据保持不变
ggplot(df, aes(type, weight = nums))  + 
  geom_bar(width = 0.3)                        ## 设置宽度width = 0.3

R语言ggplot2调整图例的大小 r中ggplot2_测试数据_07

b、使用width参数设定为0.8：

type <- c('A', 'B', 'C', 'D', 'E', 'F', 'G')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)          ## 测试数据保持不变
ggplot(df, aes(type, weight = nums))  + 
  geom_bar(width = 0.8)                             ## 使用width参数设定宽度为0.8

R语言ggplot2调整图例的大小 r中ggplot2_测试数据_08

007、手动指定x轴、y轴的名称

type <- c('A', 'B', 'C', 'D', 'E', 'F', 'G')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)           ## 测试数据保持不变
ggplot(df, aes(type, weight = nums))  + 
  geom_bar() + labs(x = 'x-name', y = 'y-name')      ## 利用labs选项指定x轴、y轴的名称

R语言ggplot2调整图例的大小 r中ggplot2_坐标轴_09

008、手动修改x轴、y轴坐标轴名称的大小

a、设置坐标轴的大小：size = 10

type <- c('A', 'B', 'C', 'D', 'E', 'F', 'G')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)                  ## 测试数据保持不变
ggplot(df, aes(type, weight = nums))  + geom_bar() +
  theme(axis.title =  element_text(size=10,face = "bold"))  ## 利用该句修改坐标轴名称的大小

绘图结果如下：

R语言ggplot2调整图例的大小 r中ggplot2_坐标轴_10

b、设置坐标轴的大小：size = 30

type <- c('A', 'B', 'C', 'D', 'E', 'F', 'G')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)                   ## 测试数据保持不变
ggplot(df, aes(type, weight = nums))  + geom_bar() +
  theme(axis.title =  element_text(size=30,face = "bold"))   ## 设置绘图的大小为30

绘图的结果如下：

R语言ggplot2调整图例的大小 r中ggplot2_测试数据_11

009、手动调整坐标轴上刻度标签的大小：

a、设施x轴刻度标签的大小，size = 10

type <- c('A', 'B', 'C', 'D', 'E', 'F', 'G')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)           ## 测试数据保持不变
ggplot(df, aes(type, weight = nums))  + geom_bar() +
  theme(axis.text.x =   element_text(size=10))       ## 此处调整坐标轴刻度标签名称的大小

R语言ggplot2调整图例的大小 r中ggplot2_边距_12

b、设施x轴刻度标签的大小，size = 30

type <- c('A', 'B', 'C', 'D', 'E', 'F', 'G')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)             ## 测试数据保持不变
ggplot(df, aes(type, weight = nums))  + geom_bar() +
  theme(axis.text.x =   element_text(size=30))         ## 设置x轴刻度标签 seze = 30

绘图结果如下：

R语言ggplot2调整图例的大小 r中ggplot2_测试数据_13

010、手动旋转坐标轴文字

a、x轴刻度标签旋转45度。

type <- c('A', 'B', 'C', 'D', 'E', 'F', 'G')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)       ## 测试数据保持不变
ggplot(df, aes(type, weight = nums))  + geom_bar() +
  theme(axis.text.x =   element_text(angle=45))   ## x轴旋转45度

R语言ggplot2调整图例的大小 r中ggplot2_坐标轴_14

b、x轴刻度标签旋转90度。

type <- c('A', 'B', 'C', 'D', 'E', 'F', 'G')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)    ## 测试数据保持不变
ggplot(df, aes(type, weight = nums))  + geom_bar() +
  theme(axis.text.x =   element_text(angle=90))

R语言ggplot2调整图例的大小 r中ggplot2_边距_15

011、手动调整坐标轴刻度标签的位置

a、在x轴上面，设置hjust为0.5

type <- c('A', 'B', 'C', 'D', 'E', 'F', 'G')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)              ## 保持测试数据不变
ggplot(df, aes(type, weight = nums))  + geom_bar() +
  theme(axis.text.x =   element_text( hjust = 0.5))     ## 此处hjust设置为0.5

结果如下图：

R语言ggplot2调整图例的大小 r中ggplot2_边距_16

b、在x轴上面，设置hjust为3.5

type <- c('A', 'B', 'C', 'D', 'E', 'F', 'G')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)               ## 保持测试数据不变
ggplot(df, aes(type, weight = nums))  + geom_bar() +
  theme(axis.text.x =   element_text( hjust = 3.5))      ## hjust设置为3.5

绘图结果如下：

R语言ggplot2调整图例的大小 r中ggplot2_测试数据_17

c、在x轴上面，设置hjust为-3.5

type <- c('A', 'B', 'C', 'D', 'E', 'F', 'G')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)                ## 保持测试数据不变
ggplot(df, aes(type, weight = nums))  + geom_bar() +   
  theme(axis.text.x =   element_text( hjust = -3.5))       ## hjust设置为-3.5

绘图结果如下：

R语言ggplot2调整图例的大小 r中ggplot2_边距_18

012、手动设置页边距

a、页边距设置为1

type <- c('A', 'B', 'C', 'D', 'E', 'F', 'G')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)                ## 测试数据保持不变
ggplot(df, aes(type, weight = nums))  + geom_bar() +
  theme(axis.text.x =   element_text( hjust = -3.5),
        plot.margin=unit(rep(1,4),'lines'))               ## 设置页边距为1

R语言ggplot2调整图例的大小 r中ggplot2_坐标轴_19

b、页边距设置为4

type <- c('A', 'B', 'C', 'D', 'E', 'F', 'G')
nums <- c(10,23,8,33,12,40,60)
df <- data.frame(type = type, nums = nums)                 ## 保持测试数据不变
ggplot(df, aes(type, weight = nums))  + geom_bar() +
  theme(axis.text.x =   element_text( hjust = -3.5),
        plot.margin=unit(rep(4,4),'lines'))                 ## 设置页边距为4

绘图结果如下：

R语言ggplot2调整图例的大小 r中ggplot2_测试数据_20