R语言的ggplot2绘制多个分组簇状柱状图

今天要分享的是ggplot2去绘制多个分组簇状柱状图，话不多说，现在开始吧：

老规矩，还是先看数据和最终的效果图，进行解释后，再说明如何绘制

数据情况

最终图情况

可以明显看到，图代表的意思是不同年龄组、性别的高血压和糖尿病的患病率

年龄是x轴的分组，性别是堆积块的分组，疾病是分页的分组（也就是高血压一张图，糖尿病一张图），图中的数据是患病率。

所以，画图的前提是先把数据整理成4列，然后自己分清每一列变量代表哪里，最好，自己手画一下大概的情况，接着再进行画图。

下面是具体的操作流程：

注意：R语言里面 # 代表的是备注

我出现两个 ## 的备注就是你需要更改的部分

.libPaths()

setwd("F:/02学习/代码/02R代码/数据")#设置工作空间

getwd()#加载工作空间

#加载包

library(ggplot2)

library(tidyr) #pivot_longer()

library(dplyr) #mutate()、case_when()、管道符

library(tibble) #rownames_to_column()

library(ggrepel)#含geom_text_repel,作用不让标签重叠

#导入数据

data1<-read.csv("F:/02学习/代码/02R代码/数据/分组柱状图.csv",##这里需要更改工作路径

                as.is = TRUE,header = T,sep = ",", fileEncoding='utf-8')

#先看下数据

data1

#采用mutate()设计分组变量里面数据的顺序

data1 <- rbind(data1)%>%#必须写上这个行行合并的函数

  ##这里我列出我的三个分组变量里面数据的顺序

  ##比如下面的年龄，变量名是”年龄“，希望的顺序是"60岁以下","60岁以上"

  ##然后粘贴到函数mutate，如下

  ##年龄：60岁以下/60岁以上

  mutate(年龄 = factor(年龄, levels = c("60岁以下",

                                   "60岁以上"

  )))%>%

  ##同样上面的操作

  ##性别：男/女

  mutate(性别 = factor(性别, levels = c(

    "男","女"

  ))) %>%

  ##同样上面的操作

  ##疾病：高血压/糖尿病

  mutate(疾病 = factor(疾病, levels = c(

    "高血压",   "糖尿病"

  )))

#然后画柱状堆积图，采用geom_bar组件

##x=代表x轴的分组，这里我选 年龄

##y=代表数据那一列，这里是  患病率 那一列

##fill= 代表每个图里面的柱状堆积块的分组，这里我选  性别，同时这个后面需要创建图例

p1<-ggplot(data = data1, aes(x=年龄, y = 患病率, fill = 性别)) +#这里就是1张图的工作

  geom_bar(stat="identity", color = "black", size = 0.55, width = 0.7)+

  facet_wrap(~疾病)+ ##这里设置分页，就是多张图，这里的分组变量我选 疾病

  ##为不同类别设置颜色

  ##下面这个是设置柱状堆积块，每一块的颜色，因为前面是用的性别

  ##那么就需要定义 "男" 和 "女"的颜色

  scale_fill_manual(

    values = c("男" = "#bd2628",

               "女" = "#caeaf0"))

#查看

p1

#接着进一步美化

p2<-p1+

  theme_bw()+ #移除灰色背景

  ylab("比例")+ #设置Y轴标题

  scale_y_continuous(labels = seq(0, 100, 25)) + #设置Y轴标签

  guides(fill = guide_legend(keyheight = 1.75, #图例高度

                             keywidth = 0.5,  #图例宽度

                             title = "Age", ##这里修改图例标题，前面选择的是性别

                             label.theme = element_text(size=10)))+ #设置标签字体大小

  theme(

    axis.text.x = element_text(angle = 0, hjust = 0.5, vjust = 0.5,

                               colour = "black", size = 8),

    #设置X轴标签字体角度、对齐方向、颜色大小

    axis.text.y = element_text(colour = "black", size = 11), #设置y轴标签字体颜色、大小

    axis.title.x = element_blank(), #移除x轴标题

    strip.background = element_rect(fill = c("#e7e7e7")), #修改分页背景

    strip.text.x = element_text(size = 13), #设置分页标签字体大小

    panel.border = element_rect(linewidth = 1.1), #设置边框粗细

    panel.grid = element_blank() #删除背景网格

  )+

  ##这里需要将  患病率  数据加到图上

  geom_text(aes(label=患病率),

            position=position_stack(vjust=0.5),hjust=0.5,

            size=3)#增加数据到图上

        #position=position_stack()作用是将数据对应到相应的图块部分

#查看

p2

#保存图片

ggsave(filename = "0-2.png",#命名

       plot=p2,#哪张图

       path = "C:/Users/12974/Desktop/百度经验/简书/R语言绘制多个分组簇状柱状图",

       #保存路径

       units="px",

       width = 1200,#宽度

       height = 600 #高度

       )