data=read.table("11.txt", header = T)
data=data.matrix(data)
barplot(data, beside=T, col=c("blue","red","green"),legend =rownames(data) , ylim=c(0, 5))

那个混合模型的请您指教一下

如何加标准差

dat<-matrix(c(0.825,0.364,0.252,0.421,1.36,2.28,1.7,2.05,4.12,2.77,1.78,1.01), byrow=T, nrow=3)
colnames(dat) <- c("y","z","n","c")
rownames(dat) <- c("w","m","b")
dat.sd<- apply(dat,2,sd)
d<- matrix(rep(dat.sd,3),byrow=T,nrow =3)
bp <- barplot(dat, beside = T, col=c("blue","red","green"), legend = rownames(dat), ylim=c(0, 6))
arrows(bp,dat, bp, dat+d,lwd = 1.5, angle =90, length =0.1)

呵呵，互相学习！