r - ggplot2 facet_grid：如何修复 geom_col 中列之间的不同间距

Question

我有一个数据集，其中包含三个独立组的不同键的值，我想使用 3 个不同组的这些值创建一个条形图facet_grid。这是我到目前为止所做的，但是我找不到固定条之间间距的方法（从图片中可以清楚地观察到它们是不同的）。我尝试更改参数width和positionfor geom_col，但没有帮助。我该如何解决？

library(ggplot2)
# Loading

groups = c(rep("q", 8), rep("w", 8), rep("e", 8))
keys = c(c(1:8), c(1:8), c(1:8))
values = c(rep(8, 8), rep(8, 8), rep(8, 8))
data = data.frame(groups, values, keys)

ggplot(data, aes(x = keys, y = values)) +
  geom_col(width=0.9375) +
  facet_grid(~groups)

Answer 1

尝试这个：

ggplot(data) + 
  geom_bar(aes(x = keys, y = values), stat = "identity") +
  facet_grid(~groups)

Answer 2

我的猜测是图像的大小/分辨率有问题。如果尺寸/分辨率很小，您可能会得到这个结果。您的图像是 614 x 362，@Leonardo 是 1362x699。我的猜测是，这就是造成这种奇怪间距的原因。

g <- ggplot(data, aes(x = keys, y = values)) +
  geom_col() + facet_grid(~groups)

png(filename = "Rplotsmall.png", width=614, height = 362)
print(g)
dev.off()

png(filename = "Rplotlarge.png", width=1362, height = 699)
print(g)
dev.off()

小图像（奇怪的间距）：

大图（间距看起来不错）：

如果您使用 Rstudio 并打印到绘图窗口，当您单击“缩放”并增加或减小窗口大小时，您应该会看到这种奇怪的效果出现和消失（因为 Rstudio 正在重新绘制不同大小的图像）。