在 count=0 的情况下，如何使用 geom_bar() 摆脱 ggplot2 图的更宽条

Question

这是我的 data.frame():

df <- data.frame(Round = rep(c("A", "B", "C" ),150), Group = rep(c("UP", "DOWN"),75),Task = rep(c("T1", "T2", "T3", "T4", "T5"),30), V2 = sample(c(0,1,2), 50, replace = T), V1 = sample(c(0,1,2), 50, replace = T))
dfmelt <- melt(df)

我正在尝试像这样绘制 facet_grid：

b <- ggplot(data=dfmelt, aes(x=value, fill=variable))
b <- b + geom_bar(stat="count", position = "dodge", width = 0.9)
b <- b + facet_grid(Group ~ Task, scales = "free")

，生成以下内容：

我想删除较宽的列，例如 V1 at the position 0 of T1-UP、V1 at the position 1 of T5-DOWN 和 V2 at the position 0 of T3-UP。

当给定 x 位置（0,1 或 2）中我的一个变量（比方说 V1）的 count 等于 0 时，就会出现问题并且另一个变量 (V2) 大于 0。在这种情况下，V2 条变宽以填充整个 x 位置。

我试过这个 and this 解决方案但没有成功。 有没有办法让条形有固定的宽度？

Answer 1

一种选择是在 ggplot 之外手动实现计数，并用 tidyr::complete 的 NA 填充缺失数据，然后绘制 identity 条形图：

library(dplyr); library(tidyr); library(ggplot2)
dfmelt_count <- dfmelt %>% 
        count(Group, Task, variable, value) %>% 
        complete(Group, Task, variable, value)

b <- ggplot(data=dfmelt_count, aes(x=value, y = n, fill=variable))
b <- b + geom_bar(stat="identity", position = "dodge", width = 0.9)
b <- b + facet_grid(Group ~ Task, scales = "free")
b

在 count=0 的情况下，如何使用 geom_bar() 摆脱 ggplot2 图的更宽条

How to get rid of wider bars of a ggplot2 plot with geom_bar() in cases of count=0

r

ggplot2

geom-bar