求绘图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

已知数据：

	y	z	n	c
w	0.825	0.364	0.252	0.421
m	1.36	2.28	1.7	2.05
b	4.12	2.77	1.78	1.01

绘制下图（图片中）


初学绘图，请高手告诉代码，可以学着以后怎么做类似的图，非常感谢

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：非常感谢 已知数 怎么做 图片

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

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 发表于 2012-10-15 20:19
dat

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)

qoiqpwqr 发表于 2012-10-15 20:19
dat

如果要加上标准差呢？

barplot