作者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