如何解决如何在条形图中添加中心线以指示R中的条形图上的类中点?
我在R中有以下代码:
bloodgroup <- c(1,1,2,3,4,5,5)
xx <- barplot(table(bloodgroup),ylim=c(0,14))
coords <- as.numeric(table(bloodgroup))
text(x = xx,y = coords,label = coords,cex = 0.8,pos = 3,col = "red")
我想改为在x轴上1 2 3 4 5使用以下标签:1-7、8-14、15-21、22-28、29-35。在每个小节上,我都希望在中心显示一条垂直线,指示班级中点。我该怎么办?
解决方法
您可以将向量转换为一个因子,并使用该因子标记x轴。
bloodgroup <- c(1,1,2,3,4,5,5)
bloodgroup <- as.data.frame(bloodgroup)
bloodgroup <- within(bloodgroup,{
bloodgroup_factor <- factor(bloodgroup,labels=c('1-7','8-14','15-21','22-28','29-35'))
})
xx <- barplot(table(bloodgroup),ylim=c(0,14))
coords <- as.numeric(table(bloodgroup$bloodgroup_factor))
text(x = xx,y = coords,label = coords,cex = 0.8,pos = 3,col = "red")
要添加指示中点的中心线:
abline(v=xx)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。