总与部分的条形图，百分比 (R)
阿尔诺
我已经尝试了一段时间来实现以下图表：
基于类似这样的：
Age Total Infected Percent
[0,10] 619 17 2.75
(10,20] 711 24 3.38
(20,30] 318 25 7.86
(30,40] 307 23 7.49
(40,50] 421 37 8.79
(50,60] 299 29 9.70
(60,70] 172 21 12.21
(70,80] 93 22 23.66
(80,90] 53 6 11.32
(90,100] 5 0 0.00
我需要按年龄范围绘制两个变量的条形图（一个是被评估的患者数量，另一个是被评估的患者数量）；并在每组顶部绘制受感染患者的百分比。
它应该如下图所示：
使用此代码，我绘制了两个变量的条形图，但随后我不知道如何放置百分比。
longPlotData <- plotData %>%
pivot_longer(!Age, names_to = "Status", values_to = "Num")
ggplot(longPlotData, aes(fill=Status, y=Num, x=Age)) +
geom_bar(position="dodge", stat="identity", width=0.3)
有什么建议吗？
非常感谢！
鸭子
试试这个。您可以重塑为 long，然后将Percent变量与Age. 之后，您可以调整标签并用于geom_text()在条形顶部添加值。这里的代码：
library(ggplot2)
library(dplyr)
library(tidyr)
#Code
longPlotData <- plotData %>%
mutate(Age=factor(Age,levels = unique(Age),ordered = T)) %>%
pivot_longer(-c(Age,Percent), names_to = "Status", values_to = "Num")
#Plot
longPlotData %>%
mutate(Percent=ifelse(Status=='Infected',NA,Percent))%>%
ggplot(aes(fill=Status, y=Num, x=Age)) +
geom_bar(position="dodge", stat="identity", width=0.3)+
geom_text(aes(label=Percent),vjust=-0.5,fontface='bold')+
theme(axis.text = element_text(color='black',face='bold'),
axis.title = element_text(color='black',face='bold'),
legend.title = element_text(color='black',face='bold'),
legend.text = element_text(color='black',face='bold'))
输出：
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
编辑于
相关文章
TOP 榜单
- 1
UITableView的项目向下滚动后更改颜色，然后快速备份
- 2
Linux的官方Adobe Flash存储库是否已过时？
- 3
用日期数据透视表和日期顺序查询
- 4
应用发明者仅从列表中选择一个随机项一次
- 5
Mac OS X更新后的GRUB 2问题
- 6
验证REST API参数
- 7
Java Eclipse中的错误13，如何解决？
- 8
带有错误“ where”条件的查询如何返回结果？
- 9
ggplot：对齐多个分面图-所有大小不同的分面
- 10
尝试反复更改屏幕上按钮的位置 - kotlin android studio
- 11
如何从视图一次更新多行（ASP.NET - Core）
- 12
计算数据帧中每行的NA
- 13
蓝屏死机没有修复解决方案
- 14
在 Python 2.7 中。如何从文件中读取特定文本并分配给变量
- 15
离子动态工具栏背景色
- 16
VB.net将2条特定行导出到DataGridView
- 17
通过 Git 在运行 Jenkins 作业时获取 ClassNotFoundException
- 18
在Windows 7中无法删除文件（2）
- 19
python中的boto3文件上传
- 20
当我尝试下载 StanfordNLP en 模型时，出现错误
- 21
Node.js中未捕获的异常错误，发生调用
我来说两句