x 轴组之间的间距大于组间距 geom_col

Question

与这些组中的 space 相比，我试图在 x 轴上将自动组和手动组之间的 space 加倍。我正在使用 geom_col() 并使用不同的参数进行实验，例如 position_dodge、width 和 preserve = "single"。我无法让它工作。我的目标是一个图表，例如我添加为图像的图表。

library(ggplot2)
library(ggthemes)
library(plyr)   

#dataset
df <- mtcars
df$cyl <- as.factor(df$cyl)
df$am <- as.factor(df$am)
df$am <- revalue(df$am, c("0"="Automatic", "1"="Manual"))

ggplot(df, aes(fill = cyl, x = am, y = mpg)) +
  geom_col(position = position_dodge(width = 0.9)) +
  theme_bw()

Answer 1

尝试结合使用 position=position_dodge(width=...) 和 width=...
例如：

ggplot(df, aes(fill = cyl, x = am, y = mpg)) +
geom_col(position = position_dodge(width = 0.9), width=0.8) +
theme_bw()

width() 命令给出了各个柱的显示宽度，而 position(width=) 给出了为柱保留的 space。

两个值之间的差异给出了组内柱之间的 space，而 1 - position_dodge(width=) 给出了组之间的 space。

x 轴组之间的间距大于组间距 geom_col

Spacing between x-axis groups bigger than within group spacing geom_col

ggplot2

geom-col