在 R 中调整绘图纵横比

Question

尝试更改此图的纵横比，使其长度是高度的两倍，这是代码

plot(X,vw,
ylab= "Stress (MPa)", 
xlab= "Strain (mm)")
title("Veronda-Westmann")
lines(X,s,col="red")
legend(x=0, y=17, c("Veronda-Westmann", "Experimental"),cex=.8,col=c("black","red"),pch=c(1,NA),lty=c(NA,1))

我使用代码尝试指定高度和宽度，但这似乎不起作用。 R 的新手，如果这是一个愚蠢的问题，真的很抱歉

Answer 1

如果没有可重现的数据，要准确重现你的图有点困难，但你可以设置 asp 到你的图，这意味着你可以按任何比例修改 x-axis 的宽度y-axis你想要的。您可以使用以下代码：

X <- c(0,1,2,3,4,5, 6, 7, 8, 9, 10)
vw <- c(0, 0.5, 0.75, 1, 1.5, 3, 5, 8, 10, 15, 22)
s <- c(0, 0.5, 0.75, 1, 1.5, 3, 5, 8, 10, 15, 22)

plot(X,vw,
     ylab= "Stress (MPa)", 
     xlab= "Strain (mm)", asp = 2)
title("Veronda-Westmann")
lines(X,s,col="red")
legend("topleft", 
       c("Veronda-Westmann", "Experimental"),
       cex=.8,col=c("black","red"),
       pch=c(1,NA),
       lty=c(NA,1))

输出：

Answer 2

您要导出此图吗？如果是这样，您可以简单地在导出时指定：

x <- seq(0,5, 0.1)
y <- seq(0,15, 0.3)

绘图 1：原生纵横比

png("test.png") # or pdf, etc
plot(x, y)
dev.off()

地块 2：两倍宽：

png("test2.png", width = 1000, height = 500) # random dimensions
plot(x, y)
dev.off()

在 R 中调整绘图纵横比

Adjusting Plot aspect ratio in R

plot

r

绘图 1：原生纵横比

地块 2：两倍宽：