r - 带标签条形百分比和缺失条形的问题

Question

这行代码，

ggplot(Oak, aes(x= age,  group=subject_talk)) + 
  geom_bar(aes(y = ..prop.., fill = factor(..x..)), stat = "count") + 
  geom_text(aes(label = scales::percent(..prop..), y = ..prop.. ), 
            stat = "count", vjust = -0.5) + 
  labs(y = "Percent", fill = "subject_talk") + 
  facet_grid(~subject_talk) + 
  scale_y_continuous(labels=percent) + 
  xlim(40,49)

给我图像。

我希望 x 轴限制为 40-49，但没有显示 49 的条（没有 40 的条）；此外，每个图的最外边缘上方都有百分比浮动，这是我不想要的。

谢谢。

标签： rggplot2

Answer 1

我接受了格雷戈尔·托马斯的建议。

将代码更改为此，

ggplot(Oak, aes(x = age, group = subject_talk)) + 
    geom_bar(aes(y = ..prop.., fill = factor(..x..)), stat = "count") + 
    geom_text(aes(label = scales::percent(..prop..), y = ..prop..), stat = "count", vjust = -.5) + 
    labs(y = "Percent", fill = "subject_talk") + 
    facet_grid(~ subject_talk) + 
    scale_y_continuous(labels = percent) + 
    xlim(39.1, 49.9)

解决了这两个问题。

我用xlim(39.1, 49.9)它给了酒吧足够的空间来显示。浮动百分比也消失了。