作者Aqery (脑残巨婴没药医)
看板Statistics
标题Re: [程式] R做barplot 背对背
时间Sat May 28 18:13:05 2011
※ 引述《DrRd (就这样吧)》之铭言：
: 虽然张贴程式很可怕，但基本上有些程式还是要张贴才能解决
: mintsu = c(1:10)#名次
: dman = c(21.6,21.1,10.1,8.3,5.8,5.4,3.7,3.4,2.3,2.1)#男性癌症十大死因死亡率
: dman=t(matrix(dman,ncol=1,dimnames=list(mintsu,NULL)))
: dfemal = c(17.9,15.7,13.5,10.9,5.6,4.5,4.2,3,2.5,2.4)#女性癌症十大死因死亡率
: dfemal=t(matrix(dfemal,ncol=1,dimnames=list(mintsu,NULL)))
用你写的稍微改一下：
m = max(c(dman, dfemal))
at = pretty(c(-m, m))
labels = abs(at)
xlim = range(at)
barplot(-rev(dman), col="red" , horiz=TRUE, space=0, xlim=xlim, axes=FALSE)
barplot(rev(dfemal), col="blue", horiz=TRUE, space=0, add=TRUE, axes=FALSE)
axis(side=1, at=at, labels=labels)
不要让barplot自己画x-axis，手动自己画就好了
至於要标上文字的部份只要用text找一下对应的xy就可以了...
至於上篇推文提到的
http://goo.gl/lEzDK，
你只要看一下 ?layout 就知道该怎麽做了
其实现在流行的画图方法都是用ggplot2啦，
听说简单易用画出来也比传统的好看
--
宅＝拿PSP猎恐龙＝拿NDS抓神奇宝贝
潮＝拿手机把鸟射向猪
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 111.69.240.119
※ 编辑: Aqery 来自: 111.69.240.119 (05/28 18:17)
1F：推 DrRd:哦耶，it works，感谢！ 05/30 09:34
2F：→ DrRd:哇ggplot2说明文件有近二百页耶 05/30 09:51