数据如下：

label    one    two

l2k    12  5

s1k    23 53

s2k   21  13

s3h    25  13

s5h    37  33

要做出下面的图：

需要的R脚本如下：

data <- read.table("test",header=TRUE)

tag <- colnames(data)

tag <- tag[2:3]

label <- as.character(data[,1])

x <- as.matrix(data[,2:3])

testFig <- barplot(t(x),beside=TRUE,col=c("blue","red"),legend.text=tag,names.arg=label,xlab="test",main="test",ylab="Number")

text(cex=0.8,x=testFig,y=t(x)+2,xpd=TRUE,lab=t(x))

转载本文请联系原作者获取授权，同时请注明本文来自彭友松科学网博客。

链接地址：https://wap.sciencenet.cn/blog-54276-929572.html?mobile=1

收藏

分享