如何修复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"但不关心实际的图表大小.
我怎样才能解开图表？
And*_*rie 99
在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()
- 对于问题的更一般的标题,您是否可以添加有关如何计算比率的信息(coord_fixed的参数),因为在两个轴上没有使用相同的限制？ (5认同)
- 你知道为什么ggplot坚持把y轴标签放在左边吗？我很想知道如何防止...... (3认同)
- 该行为在开发版本中得到修复. (3认同)
a d*_*ben 66
确保特定的纵横比,例如方形,使用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)
但是你需要用变量或绘图区域的限制来调整它(并非所有限制都可以被像这些例子那样的整数整除).
- 这是更好的答案，因为它不一定假设“x”和“y”轴上的单位范围相同！ (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)
导致:
- 怎么比`plot + theme(aspect.ratio = 4/3)`更好？ggplot可能有多个层,有多个数据集,轴可能有任意扩展因子,因此计算一个数据源的y/x比率似乎非常脆弱. (13认同)
- 因为这显然不容易发现。事实证明，这里有三个答案，但没有人提及。您应该将其回答，这绝对是更好的解决方案。 (2认同)
基于baptiste的建议和Graipher的答案，因为它优雅且有用。
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)
