问题与ggplot2，geom_bar和位置=“闪避”：堆叠有正确的y值，闪避不

Question

我有相当的时间了解geom_bar()和position="dodge"。我试图制作一些说明两个组的棒图。数据最初来自两个独立的数据框。每this question，我把我的数据以长格式。我的例子：

test <- data.frame(names=rep(c("A","B","C"), 5), values=1:15) 
test2 <- data.frame(names=c("A","B","C"), values=5:7) 

df <- data.frame(names=c(paste(test$names), paste(test2$names)), num=c(rep(1, 
nrow(test)), rep(2, nrow(test2))), values=c(test$values, test2$values)) 

我使用该示例，因为它类似于支出与预算的例子。每names因子水平的支出有许多行，而预算只有一个（每个类别一个预算金额）。

对于堆叠条形图，这个伟大的工程：

ggplot(df, aes(x=factor(names), y=values, fill=factor(num))) + 
geom_bar(stat="identity") 

特别要注意的y值马克塞斯。它们是来自test的数据的总和，其中test2的值在上面显示为蓝色。

基于我读过的其他问题，我只需添加position="dodge"，使之成为并排侧情节与堆叠之一：

ggplot(df, aes(x=factor(names), y=values, fill=factor(num))) + 
geom_bar(stat="identity", position="dodge") 

它看起来很棒，但请注意新的最大值。看起来它只是从test的每个名称因子水平中获取y值的最大y值。它不再总结它们。

每其他一些问题（如this one和this one，我也尝试添加了group=选项没有成功（产生相同的回避情节如上）：

ggplot(df, aes(x=factor(names), y=values, fill=factor(num), group=factor(num))) + 
geom_bar(stat="identity", position="dodge") 

我不明白为什么堆叠的伟大工程而回避不只是把它们并排而不是在顶部

---

ETA：我发现了一个recent question这个对ggplot谷歌组与建议添加alpha=0.5看看发生了什么。 ggplot不是从每个分组中获取最大值;它实际上是为每个值重叠绘制条形图。

看来，当使用position="dodge"时，ggplot只需要每x一个y。我联系了ggplot开发人员Winston Chang，以确认以及询问这是否可以改变，因为我没有看到优势。

看来stat="identity"应该告诉ggplot相符通过内部aes()强似没有Y值时会发生不stat="identity"和个人计数y=val。

现在，解决办法似乎是（对于上述原DF）聚合所以有每X仅有一个Y：

df2 <- aggregate(df$values, by=list(df$names, df$num), FUN=sum) 
p <- ggplot(df2, aes(x=Group.1, y=x, fill=factor(Group.2))) 
p <- p + geom_bar(stat="identity", position="dodge") 
p 

Answer 1

我认为这个问题是要num组的值和闪避的值num。 这可能有助于了解将大纲添加到酒吧时发生的情况。

library(ggplot2) 
set.seed(123) 
df <- data.frame(
    id  = 1:18, 
    names = rep(LETTERS[1:3], 6), 
    num = c(rep(1, 15), rep(2, 3)), 
    values = sample(1:10, 18, replace=TRUE) 
) 

默认情况下，有一个堆放很多酒吧 - 你只是不明白，他们是独立的，除非你有一个轮廓：如果你躲闪

# Stacked bars 
ggplot(df, aes(x=factor(names), y=values, fill=factor(num))) + 
    geom_bar(stat="identity", colour="black") 

，您会获得在num的值之间闪避的条，但在每个值num内可能有多个条：

# Dodged on 'num', but some overplotted bars 
ggplot(df, aes(x=factor(names), y=values, fill=factor(num))) + 
    geom_bar(stat="identity", colour="black", position="dodge", alpha=0.1) 

如果您还添加id为分组变种，它会闪避所有的人：

# Dodging with unique 'id' as the grouping var 
ggplot(df, aes(x=factor(names), y=values, fill=factor(num), group=factor(id))) + 
    geom_bar(stat="identity", colour="black", position="dodge", alpha=0.1) 

我想你想要的是既闪避和堆栈，但你不能这样做。 所以最好的办法是自己总结一下数据。

library(plyr) 
df2 <- ddply(df, c("names", "num"), summarise, values = sum(values)) 

ggplot(df2, aes(x=factor(names), y=values, fill=factor(num))) + 
    geom_bar(stat="identity", colour="black", position="dodge")