R语言绘制环状条形图

分享一波环状条形图的代码,可以自己动手试试~

library(tidyverse)

# 创建数据集
data <- data.frame(
  individual=paste( "Mister ", seq(1,60), sep=""),
  group=c( rep('A', 10), rep('B', 30), rep('C', 14), rep('D', 6)) ,
  value=sample( seq(10,100)
要使用R语言绘制复式条形图,可以按照以下步骤操作: 1. 载入所需的包,如ggplot2: ```R library(ggplot2) ``` 2. 使用ggplot函数创建图形对象,并设置数据来源和映射参数,其中x轴变量为因子型变量(cyl),并使用fill参数将颜色映射到因子变量(cyl): ```R ggplot(data=mtcars, mapping=aes(x=as.factor(cyl),fill=as.factor(cyl))) ``` 3. 使用geom_bar函数添加条形图层,设置stat参数为"count"表示绘制计数条形图,width参数控制条形宽度: ```R geom_bar(stat="count",width=0.5) ``` 4. 使用scale_fill_manual函数设置条形图颜色,其中values参数设置颜色值,以"#RRGGBBAA"格式表示: ```R scale_fill_manual(values=c("#3C5488B2","#00A087B2","#F39B7FB2")) ``` 5. 使用geom_text函数添加条形图的文本,设置stat参数为"count"表示绘制计数条形图,aes函数设置label参数为..count..表示显示计数值,vjust参数控制文本位置,color参数设置文本颜色,size参数设置文本大小: ```R geom_text(stat='count',aes(label=..count..), vjust=1.6, color="white", size=3.5) ``` 6. 使用theme_minimal函数设置图形主题为最小化风格: ```R theme_minimal() ``` 7. 如果希望将x轴和y轴互换,可以使用coord_flip函数: ```R coord_flip() ``` 综合以上步骤,可以使用以下代码绘制复式条形图: ```R 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() ```<span class="em">1</span><span class="em">2</span><span class="em">3</span> #### 引用[.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 ]
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值