彭友松
一个画bar图的R脚本
2015-10-20 17:03
阅读:3626

数据如下:

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))


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

链接地址:http://wap.sciencetimes.com.cn/blog-54276-929572.html?mobile=1

收藏

分享到:

当前推荐数:0
推荐到博客首页
网友评论0 条评论
确定删除指定的回复吗?
确定删除本博文吗?