如何在使用 ggplot2 制作的 geom_bar 图中减少条形之间的间距而不增加其宽度？

Question

我想减少条之间的间距，但不增加所述条的宽度。我在 ggplot2 中使用 geom_bar 函数。

几年前有人问过同样的问题，并提供了一个示例图（ggplot2：如何使用 geom_bar 减少宽度和条形之间的间距）。然而，没有人想出一个令人满意的解决方案来解决这个问题。我希望这一次会有所不同！

预先感谢大家。

拉奎尔.

Answer 1

让我们从逻辑上思考这一点，并使用以下具体示例进行演示：

library(ggplot2)

df <- data.frame(label = c("A", "B", "C", "D"),
                 value = c(3, 1, 2, 5))

p <- ggplot(df, aes(label, value))

为了使这一点完全可重现，让我们指定 4 英寸 x 4 英寸的绘图窗口大小：

x11(width = 4, height = 4)

p + geom_col(width = 0.5, color = "black")

如果我们减小酒吧但保持条本身的宽度相同，那么最左边条的左边缘和最右边条的右边缘之间的距离必然变小。实现此目的的最常见方法是增加条形的宽度，但将绘图窗口缩小相同的量。

如果我们将条形尺寸从 1/2 增加到 2/3 并将绘图宽度减小到 3 英寸，则条形宽度将与像素数完全相同，但它们之间的间距会更小：

x11(width = 3, height = 4)

p + geom_col(width = 2/3, color = "black")

你会请注意，情节更窄，但无论您如何实现这一点，这都是事实。

您可以保持绘图窗口大小相同，但增加绘图两侧的间距：

x11(width = 4, height = 4)

p + geom_col(width = 0.75, color = "black") +
  scale_x_discrete(expand = c(1, 0))

或者指定坐标比而不是更改绘图窗口大小：

p + geom_col(width = 2/3, color = "black") +
  coord_fixed(1.2)

或者在绘图中添加大边距：

p + geom_col(width = 2/3, color = "black") +
  theme(plot.margin = margin(10, 50, 10, 50))

但所有这些方法本质上都涉及相同的事情：如果您希望条形图靠得更近但要保持条形大小相同，您必须使图更窄。链接问题中的答案确实指出了这一点，而且我认为这并不令人满意 - 这是几何必然性。