r语言绘制复式条形图

要使用R语言绘制复式条形图，可以按照以下步骤操作：

1. 载入所需的包，如ggplot2：

   library(ggplot2)

2. 使用ggplot函数创建图形对象，并设置数据来源和映射参数，其中x轴变量为因子型变量(cyl)，并使用fill参数将颜色映射到因子变量(cyl)：

   ggplot(data=mtcars, mapping=aes(x=as.factor(cyl),fill=as.factor(cyl)))

3. 使用geom_bar函数添加条形图层，设置stat参数为"count"表示绘制计数条形图，width参数控制条形宽度：

   geom_bar(stat="count",width=0.5)

4. 使用scale_fill_manual函数设置条形图颜色，其中values参数设置颜色值，以"#RRGGBBAA"格式表示：

   scale_fill_manual(values=c("#3C5488B2","#00A087B2","#F39B7FB2"))

5. 使用geom_text函数添加条形图的文本，设置stat参数为"count"表示绘制计数条形图，aes函数设置label参数为..count..表示显示计数值，vjust参数控制文本位置，color参数设置文本颜色，size参数设置文本大小：

   geom_text(stat='count',aes(label=..count..), vjust=1.6, color="white", size=3.5)

6. 使用theme_minimal函数设置图形主题为最小化风格：

   theme_minimal()

7. 如果希望将x轴和y轴互换，可以使用coord_flip函数：

   coord_flip()

综合以上步骤，可以使用以下代码绘制复式条形图：

library(ggplot2)

ggplot(data=mtcars, mapping=aes(x=as.factor(cyl),fill=as.factor(cyl))) +
  geom_bar(stat="count",width=0.5) +
  scale_fill_manual(values=c("#3C5488B2","#00A087B2","#F39B7FB2")) +
  geom_text(stat='count',aes(label=..count..), vjust=1.6, color="white", size=3.5) +
  theme_minimal() +
  coord_flip()

#### 引用[.reference_title]
- *1* *2* *3* [R语言绘制条形图](https://blog.csdn.net/weifanbio/article/details/116784420)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v93^chatsearchT3_2"}}] [.reference_item style="max-width: 100%"]
[ .reference_list ]