如何固定ggplot中的宽高比？

我正在尝试调整绘图的大小以适合我的文档，但是在将绘图绘制成正方形时遇到困难。

例：

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“，但是并不关心实际的图表尺寸。

如何解压图表？

在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()

为了确保特定的纵横比，例如用于正方形，请使用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)

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

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

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)

导致：