如何用R做这样的堆叠图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如何用R做这样的图

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：堆叠图 如何用 如何

图挂了

试试ggplot2包
这里有很多例子
http://had.co.nz/ggplot2/geom_histogram.html

重发一个图吧！

kk22boy 发表于 2011-11-13 21:16
图挂了

重传了  不知道看到没~

kiddbai 发表于 2011-11-14 16:00
重发一个图吧！

不知道看到没 重发过了

qoiqpwqr 发表于 2011-11-13 22:45
试试ggplot2包
这里有很多例子
http://had.co.nz/ggplot2/geom_histogram.html

简直就是我想要的  膜拜大牛啊有木有！！！

太简单了！直接用 barplot() 命令就行了，不用加载任何其它包。

例子：

##  输入2011年8月26日上海微博达人数据  ##
dr <- matrix(data = NA, nrow = 6, ncol = 2)
dr[1:6] <- c(222,4281,3198,830,59,39)
dr[1:6,2] <- c(730,9493,4445,534,31,44)
colnames(dr) <-  c("男","女")
rownames(dr) <- c("18岁以下","18~24","25~30","31~40","41~50","50岁以上")
sum(dr)
##  绘图  ##
par(mfrow = c(3,1))
x <- barplot(t(dr),legend=rownames(t(dr)),main=paste("2011年8月26日上海微博达人统计共",sum(dr),"人"))
y <- dr[,1]+dr[,2]
text(x,y+mean(dr)*0.2,labels=as.character(y))
pielabels <- sprintf("%s = %3.1f%s", rownames(dr),
100*(dr[,1]+dr[,2])/sum(dr), "%")
pie(dr[,1]+dr[,2],labels=pielabels,main=c("2011年8月26日上海微博达人各年龄段所占比例"))
f <- barplot(t(dr[,1]/dr[,2]),main=c("2011年8月26日上海微博达人各年龄段男女比例"))
s <- t(dr[,1]/dr[,2])
text(f,s+mean(s)*0.1,labels=format(s,digits = 3))

bensonwu 发表于 2011-11-15 07:47
太简单了！直接用 barplot() 命令就行了，不用加载任何其它包。

例子：

嗯 学会了 谢谢！！