如何修复ggplot中的纵横比？

Question

我正在尝试调整绘图的大小以适合我的文档，但我无法让绘制的图表成为正方形。

例子：

pdf(file = "./out.pdf", width = 5, height = 5)
p <- ggplot(mydata, aes(x = col1, y = col2))
print(p)
aux <- dev.off()

虽然 x 和 y 的限制相同，但结果中的图不是正方形的。我猜 R 使封闭面板 5x5" 但不关心实际图表大小。

我如何解压我的图表？

Answer 1

基于baptiste的建议和Graipher的answer，因为它优雅实用。

df <- data.frame(
  x = runif(100, 0, 5000),
  y = runif(100, 0, 5))
aspect.ratio <- 4/3
ratio.values <- (max(df$x)-min(df$x))/(max(df$y)-min(df$y))
plot <- ggplot(df, aes(x=x, y=y)) + geom_point() + theme(aspect.ratio=4/3)

Answer 2

为了完整起见： 如果您想考虑非常不同的轴限制：

df <- data.frame(
  x = runif(100, 0, 5000),
  y = runif(100, 0, 5))
ratio.display <- 4/3
ratio.values <- (max(df$x)-min(df$x))/(max(df$y)-min(df$y))
plot <- ggplot(df, aes(x=x, y=y)) + geom_point()
plot + coord_fixed(ratio.values / ratio.display)

导致：

Answer 3

为了确保特定的纵横比，例如对于正方形，使用theme(aspect.ratio=1)。

Andrie 的回答没有给出完整的图片，因为该示例提供了可能不自然的数据，其中 x 的范围等于 y 的范围。但是，如果数据是：

df <- data.frame(
  x = runif(100, 0, 50),
  y = runif(100, 0, 5))
ggplot(df, aes(x=x, y=y)) + geom_point() + coord_fixed()

那么情节将如下所示：

coord_fixed() 函数还有一个参数来调整轴的比例：

ratio纵横比，表示为y/x

这样情节就可以与：

ggplot(df, aes(x=x, y=y)) + geom_point() + coord_fixed(ratio=10)

但是您需要使用变量或绘图区域的限制进行调整（并非所有限制都可以像这些示例一样被整数很好地整除）。

Answer 4

在ggplot 中，保持绘图纵横比的机制是在绘图中添加coord_fixed() 层。这将保留绘图本身的纵横比，而不管实际边界框的形状如何。

（我还建议您使用ggsave 将结果图保存到pdf/png/etc，而不是pdf(); print(p); dev.off() 序列。）

library(ggplot2)
df <- data.frame(
    x = runif(100, 0, 5),
    y = runif(100, 0, 5))

ggplot(df, aes(x=x, y=y)) + geom_point() + coord_fixed()