你这不是已经划出来了吗？

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")
barplot(dat, beside=T, col=c("blue","red","green"), legend = rownames(dat), ylim=c(0, 5))

我也刚学R， 看到你的提问会想怎么把excel的表导入R， 如果要画条形图，用barplot语句,又要怎么把DATA方便转换为matrix，特别在数据量大的情况下,
所以结合本问题，操作了一下，与刚学R童鞋交流
read.table or read.csv 可以把excel读入

#建立matrix
a <-  data.frame(y =c(0.825,1.36,4.12),z=c(0.364,2.28,2.77),n=c(0.252,1.7,1.78),c=c(0.421,2.05,1.01))     #read.csv 会自动建立数据框,而不需要手动输入
attach(a)
x <- c(y,z,n,c)   
dim(x) <-c(3,4)
dimnames(x) <- list(c("w","m","b"),c("y","z","n","c"))
x
#画条形图
barplot(x, beside=T, legend.text = rownames(x))

qoiqpwqr大神，
有个问题请教下，table() 表 它是属于什么概念呢，比如向量、矩阵、列表。。。？
看到此楼主的问题， 我其实第一眼想到的是 table（） #~~~dxystata版主，lol~~~~
table(), 也是可以用barplot, 而看barplot的help， data 要vector or matrix

#再借用dxystata的例子

a <- data.frame(sex=c(1,1,2,2,1,1), bq=c(1,2,1,2,2,2))
levels(a$bq) <- c("1","2","total")
tm <- subset(a, sex == "1")
tf <- subset(a, sex == "2")
tm$bq <- c("total")
tf$bq <- c("total")
n <- rbind(a, tm , tf)
table(n)
m <- table(n)
barplot(m, beside =T, legend.text = attr(m,"dimnames")$sex)

如果要加上标准差呢？