比例barplot R中

Question

我想創建R中比例barplot，到目前爲止，我已成功地做這樣的事情：

library(ggplot2) 
ggplot(data=diamonds)+ 
    geom_bar(aes(x=cut,y=..prop..,fill=color)) 

這顯然是不行的，但同樣沒有這樣的：

ggplot(data=diamonds)+ 
    geom_bar(aes(x=cut,y=..prop..,fill=color,group=1)) 

或本：

ggplot(data=diamonds)+ 
    geom_bar(aes(x=cut,y=..count../sum(..count..),fill=color)) 

這工作：

ggplot(data=diamonds)+ 
    geom_bar(aes(x=cut,y=..count../sum(..count..),fill=color),position="fill") 

但我希望酒吧在一個類別內並排。

我想要做的是讓比例barplot不前

Answer 1

我認爲你需要聚合，然後再使用轉化我的數據position="dodge"：

diamonds2 <- aggregate(carat ~ cut + color, diamonds, length) 

ggplot(data = transform(diamonds2, p = ave(carat, cut, FUN = function(x) x/sum(x))), 
     aes(x = cut, y = p, fill=color))+ 
    geom_bar(stat = "identity", position = "dodge") 

所得的情節：

Answer 2

OP的評論後編輯

如果您希望有條件和側方直方圖使用geom_bar(stat = "identity", position = "dodge")，當你打電話給你的條件直方圖與ggplot2（我顯示第100行數據爲清楚起見）

library(ggplot2) 
ggplot(data = diamonds[1:100, ], aes(cut, carat, fill = color)) + geom_bar(stat = "identity", position = "dodge")