2021-05-27

data("mtcars")#加载数据
table <- table(mtcars$cyl) #计算频数
table
4  6  8 
11  7 14 
data <- as.data.frame(table) #将频数表转换成数据框
data
Var1 Freq
1    4   11
2    6    7
3    8   14
colnames(data) <- c('Cylinders', 'Freq') #修改数据框的列名
data
Cylinders Freq
1         4   11
2         6    7
3         8   14
percentage <- scales::percent(data$Freq / sum(data$Freq)) #计算百分比，利用scales包的percent()函数，将计算的小数比例转换成百分数
percentage
labs <- paste(data$Cylinders, '-Cylinders', '(', percentage, ')', sep = '')#设置标签名
labs



library(ggplot2)
library(magrittr)
#绘制条图
p1 <- data %>% 
  ggplot(aes(x = '', y = Freq, fill = Cylinders)) + 
  geom_bar(stat = 'identity', width = 1) + 
  geom_text(aes(y = c(5, 18, 25), label = labs)) + #y = ？设置标签所在的位置，如果不设置y = ？,y会默认为坐标值，所有标签位置会发生偏移。
  theme_bw() +#去掉灰色背景 
  labs(x = '', y = '',title = 'Number of cars in different Cylinders') #清除x-y轴的标题，设置主标签。
p1
?theme_bw
p1 <- data %>% 
  ggplot(aes(x = '', y = Freq, fill = Cylinders)) + 
  geom_bar(stat = 'identity', width = 1) + 
  geom_text(aes(y = c(5, 18, 25), label = labs)) + #y = ？设置标签所在的位置，如果不设置y = ？,y会默认为坐标值，所有标签位置会发生偏移。
  labs(x = '', y = '',title = 'Number of cars in different Cylinders') #清除x-y轴的标题，设置主标签。
p1

p2 <- p1 + coord_polar(theta = 'y', start = 0, direction = 1) #direction = 1,顺时针，direction = -1， 逆时针方向。
p2


library(ggpubr)
p3 <- ggpie(data, 'Freq',  #绘图，只用写频数就行，切记不用再写分组
            fill = 'Cylinders', palette = 'jco', #按照Cylinders填充，颜色板为jco.
            label = labs, lab.pos = 'in', lab.font = c(4, 'white')) #设置标签，标签的位置在图的内部，标签的大小为4， 颜色为白色.
p3


#用ggpar()修改图形
p4 <- ggpar(p3, title = 'Number of cars in different Cylinders',#设置标题
            legend = 'right', #设置图例位置
            orientation = 'reverse')#反转绘图的方向为逆时针方向。
p4




library(ggstatsplot)
library(ggstatsplot)
p5 <- ggpiestats(mtcars, 'cyl', 
                 results.subtitle = F, #标题中不显示统计结果
                 factor.levels = c('4 Cylinders', '6 Cylinders', '8 Cylinders'),#设置标签的名称
                 slice.label = 'percentage', #设置饼图中标签的类型（默认percentage：百分比, 还有counts：频数, both : 频数和百分比都显示）
                 perc.k = 2, #百分比的小数位数为2
                 direction = 1, #1为顺时针方向，-1为逆时针方向
                 palette = 'Pastel2', #设置调色板
                 title = 'Number of cars in different Cylinders')#设置标题
                 
p5             

先记一下笔记