加载中…barplot作图添加标签
(2013-09-01 22:56:38) | 分类： 图表与可视化 |
用R的barplot命令画图，如何显示每个bar的值？新手初学Rhttp://cos.name/cn/my-plugins/cos/images/sweat.gif，看了barplot的在线帮助文件但是找不到，求高手指教，多谢多谢！！！
即显示出图中各个物种的死亡个体数目。
即显示出图中各个物种的死亡个体数目。
用text()往上加。参见书稿
不过在下认为这种做法需要三思：图形本来就是为了直观展示数据的，如果图形上还需要标注原始数值，岂不是有违图形的初衷？换句话说，需要标数字的图形可能不是好图。
没有这个参数。你只能用text()手工添加。
其实，作图方面的函数，不妨先example()一下~比如，example(barplot)
所用代码也许复杂了些，特别是对于如何使不同的坐标轴标签斜体及正体，动了一些心思，如果各位如果有更好的，希望能改进。毕竟，这个图不复杂，但对于大数据，这样做起来很费事拉。
rhi1<-data.frame(Species=c("S. fredii", "R. etli", "R. leguminosarum", "Rhizobium sp.", "M. amorphae", "Unknown", "M. mediterraneum"), Total=c(28, 8,7,4,3,3,1))
perc<-paste(round((rhi$Total)/sum(rhi$Total), 2)*100, "%)", sep="")
rhi1barplot<-barplot(rhi$Total, col="steelblue", ylim=c(0, 30), names.arg=c(expression_r(italic("S. fredii")), expression_r(italic("R. etli")),expression_r(italic("R. leguminosarum")),expression_r(paste(italic("Rhizobium "), "sp.")),expression_r(italic("M. amorphae")),"Unknown",expression_r(italic("M. mediterraneum"))),xlab="根瘤菌种类", ylab="种内菌株数", font.lab=2, border="white")
text(cex=0.8,x=rhi1barplot, y=rhi1$Total+1.5, xpd=TRUE, lab=paste(rhi1$Total, perc, sep=" ("))
box(bty="l")
喜欢
0
赠金笔
前一篇：R作图——如何画带标准差的柱状图