šírka geom_bar v ggplot2 [duplikát] - r, ggplot2

Vytváram farebný barchart s ggplotom. Mám problém, že MWE nižšie generuje graf v spodnej časti. Rád by som vytvoril tyče, ktoré majú rovnaké šírky v oboch stranách. Ako by som to mohol urobiť?

library(ggplot2)

df = data.frame(x = as.factor(c(1, 2, 3, 1, 2)),
y = c(2, 3, 4, 5, 6),
g = c(1, 1, 1, 2, 2));

ggplot(df, aes(x = 1, y = y, fill = x)) +
geom_bar(stat = "identity",
position = "dodge") +
facet_wrap(~ g);

odpovede:

Nie ste si istí, či je to to, čo potrebujete. Vytvorenie držiaka miesta pre chýbajúcu úroveň faktorov pomocou complete funkcia od tidyr balenie môže tiež urobiť šírku tyče rovnaké na dvoch stranách. Nevýhodou je, že druhý pozemok je rozptýlený.

ggplot(tidyr::complete(df, x, g), aes(x = 1, y = y, fill = x)) +
geom_bar(stat = "identity", position = "dodge") +
facet_wrap(~ g);