r - 保留组合条形图中缺失列的位置

Question

一个非常常见的问题是在 ggplot 中缺少列(例如 1 、 2 )时保留条形宽度。除了此修复之外，我还需要保留条形图的相对位置缺少条形图(即间隙应该在条形图所在的位置)。

ggplot(mtcars, aes(factor(cyl), fill = factor(gear))) +
  geom_bar(position = position_dodge(preserve = "single"))

您会注意到，在 8 个气缸的组(最右侧)中，缺少一个绿色列(齿轮 = 4)。 preserve="single" 已更正宽度，但蓝色条 (gear=5) 已向左移动以填充空白。

我该如何防止这种情况发生？我希望在本来应该是绿色的地方有一个空隙。

感谢您的帮助。

Answer 1

我们根据'cyl', 'gear'得到频率count，用complete扩展数据得到所有的组合，同时fill 将计数列“n”设为 0(默认情况下，complete 中未提及的所有列在缺少组合的情况下都将获得 NA)，然后使用 ggplot

library(dplyr)
library(tidyr)
library(ggplot2)
mtcars %>%
   count(cyl, gear) %>%
   complete(cyl = unique(cyl), gear = unique(gear), 
         fill = list(n = 0)) %>%
   ggplot(aes(factor(cyl), n, fill = factor(gear))) + 
        geom_bar(stat = 'identity', position = 'dodge')