亚洲在线久爱草,狠狠天天香蕉网,天天搞日日干久草,伊人亚洲日本欧美

為了賬號安全,請及時綁定郵箱和手機立即綁定
已解決430363個問題,去搜搜看,總會有你想問的

R堆疊百分比條形圖,帶有二進制因子和標簽的百分比(帶ggplot)

R堆疊百分比條形圖,帶有二進制因子和標簽的百分比(帶ggplot)

慕運維8079593 2019-12-13 17:10:44
我想制作一張看起來像這樣的圖形:在此處輸入圖片說明我的原始數據集看起來像這樣:> bb[sample(nrow(bb), 20), ]      IMG QUANT FIX25663   1     1   07936    2     2   023586   3     2   023017   2     2   131363   1     3   17886    2     2   023819   3     3   129838   2     2   18169    2     3   19870    2     3   031440   2     1   035564   3     1   024066   1     2   012020   3     2   06742    3     2   06189    2     3   026692   2     3   01387    3     2   031839   2     3   128637   3     2   0因此,想法是條形圖顯示FIX = 1每個因子QUANT和每個因子的位置IMG。我使用以下方式將數據集匯總為百分比 plyrlibrary(plyr)bb.perc <- ddply(bb,.(QUANT,IMG),summarise,FIX.PROP = sum(FIX) / length(FIX))它幾乎做對了:  QUANT IMG   FIX.PROP1     1   1 0.524390242     1   2 0.190853663     1   3 0.136585374     2   1 0.204142015     2   2 0.539644976     2   3 0.095857997     3   1 0.290000008     3   2 0.130000009     3   3 0.40705882但是現在,如果我制作圖表,它并不能說明FIX==0情況,即所有條形都具有相同的高度,即100%,這不是我想要的。請注意,單個QUANT子幀的相加結果不等于100%:> sum(bb.perc[1:3,]$FIX.PROP)[1] 0.8518293> sum(bb.perc[4:6,]$FIX.PROP)[1] 0.839645> sum(bb.perc[7:9,]$FIX.PROP)[1] 0.8270588我可以用R做的最好的事情是顯示計數:# Take only the positive samplesbb.pos <- bb[bb$FIX == 1,]# Plot the countsggplot(bb,aes(factor(QUANT),fill=factor(IMG))) + geom_bar() +  scale_y_continuous(labels=percent)結果是: 在此處輸入圖片說明 這也不是我想要的:百分比比例遠未達到。我需要一種將100%點傳遞給 percent函數的方法,但我不知道如何實現。它缺少標簽。關于SO已經有很多類似的問題,但是我似乎缺乏足夠的智能(或對R的理解)無法從中推斷出我的特定問題的解決方案。感謝您的指導!編輯:斯文·霍恩斯坦(Sven Hohenstein)已經提供了答案,但是這也是我最終自己做的方法:> ggplot(bb.perc,aes(x=factor(QUANT),y=FIX.PROP,label=paste(round(FIX.PROP*100),     "%"),fill=factor(IMG)))+ geom_bar(stat="identity") + geom_text(position="stack",     aes(ymax=1),vjust=5) + scale_y_continuous(labels = percent)使用bb.perc我進一步定義的plyr。這一優點是百分比是在每一列本地計算的,而不是全局計算的。謝謝大家的幫助。以下兩個問題及其各自的答案對我的正確處理有很大幫助:ggplot2的堆疊條形圖標簽將標簽添加到ggplot條形圖最初我做錯了什么,就是將position = "fill"參數傳遞給 geom_bar(),由于某種原因,這使得所有條形圖都具有相同的高度!
查看完整描述

1 回答

?
慕慕森

TA貢獻1856條經驗 獲得超17個贊

這是一種生成圖的方法:


ggplot(bb[bb$FIX == 1, ],aes(x = factor(QUANT), fill = factor(IMG), 

                             y = (..count..)/sum(..count..))) +

 geom_bar() +

 stat_bin(geom = "text",

          aes(label = paste(round((..count..)/sum(..count..)*100), "%")),

          vjust = 5) +

 scale_y_continuous(labels = percent)

更改vjust參數值以調整標簽的垂直位置。



查看完整回答
反對 回復 2019-12-14
  • 1 回答
  • 0 關注
  • 721 瀏覽

添加回答

舉報

0/150
提交
取消
微信客服

購課補貼
聯系客服咨詢優惠詳情

幫助反饋 APP下載

慕課網APP
您的移動學習伙伴

公眾號

掃描二維碼
關注慕課網微信公眾號