r - ggplot2 geom_bar 在某些情况下在位置 ="fill"时给出错误

Question

尝试对 geom_bar 使用 position="fill"时出现错误。这是一个 MWE:

temp = data.frame( X=rep(1:10,10), weight=runif(100), fill=rbinom(100,size=3,p=.5) )
temp$weight[temp$fill==3] = 0
ggplot( temp, aes(x=X, weight=weight, fill=as.factor(fill)) ) +
  geom_bar(bin_width=1)
ggplot( temp, aes(x=X, weight=weight, fill=as.factor(fill)) ) +
  geom_bar(bin_width=1,position="fill")

第一个 ggplot 调用工作正常，生成一个条形图，其中每个条由对应于级别 0、1 和 2 的 3 种颜色组成。图例显示最终级别 (3)，但由于权重始终为 0，它没有出现在情节上。

但是，第二个 ggplot 调用返回错误。我原以为它会返回与以前相同的图，但只是将每个条的高度缩放到 1。知道为什么会发生这种情况，是否有解决方法？

Answer 1

当您使用 position=fill 时，它似乎希望 weight > 0。如果你这样做:

ggplot(temp[temp$weight > 0,], 
    aes(x=X, weight=weight, fill=factor(fill))) + 
    geom_bar(bin_width=1, position="fill")    

然后就可以了。