r - 填满一张纸的两个正方形图

Question

我想在一页上放置两个正方形图，并让生成的图形填满一张纸的大部分。这似乎是一个非常基本的想法。但是，默认设置似乎是创建矩形图。当我指定绘图为正方形时，它们的大小相对于页面变得非常小。如果我成功地使方形图变大，轴标签就会隐藏起来。我已经尝试了 omi 和 mar 以及 layout 的多种变体，但都没有成功。

我想使用基础 R。感谢您的任何建议。

setwd('c:/users/markm/simple R programs')

x <- 1:10
y1.1 <- x ^2
y1.2 <- x + 50
y1.3 <- x ^1.5

pdf("plots_June1_2015.pdf")

par(mfrow=c(2,1))

     plot(x, y1.1, type = 'l', col = 'black' , lwd = 1, lty = 1,
          xlab = 'My X Axis',
          ylab = 'My Y Axis')
          lines(x, y1.2, type = 'l', col = 'black' , lwd = 1, lty = 2)
          lines(x, y1.3, type = 'l', col = 'black' , lwd = 1, lty = 3)
     title('Plot One')

     plot(x, y1.1, type = 'l', col = 'black' , lwd = 1, lty = 1,
          xlab = 'My X Axis',
          ylab = 'My Y Axis')
          lines(x, y1.2, type = 'l', col = 'black', lwd = 1, lty = 2)
          lines(x, y1.3, type = 'l', col = 'black', lwd = 1, lty = 3)
     title('Plot Two')

dev.off()

以下是各种不成功的尝试:

#par(mfrow=c(2,1), omi=c(0.1,0.1,0.1,0.1), mar=c(3,3,3,3), cex.lab=0.75, pty="s", cex.axis=0.75)
#par(mfrow=c(2,1), omi=c(0.1,0.1,0.1,0.1), mar=c(3,3,3,3), cex.lab=0.75, cex.axis=0.75)
#par(mfrow=c(2,1), omi=c(1,1,1,1), mar=c(3,3,3,3), cex.lab=0.75, cex.axis=0.75)
#par(mfrow=c(2,1), omi=c(1,1,1,1), cex.lab=0.75, cex.axis=0.75)
#par(mfrow=c(2,1), omi=c(1,1,1,1), cex.lab=0.75, cex.axis=0.75, pty="s")
#par(mfrow=c(2,1), omi=c(1,1,1,1), cex.lab=0.75, cex.axis=0.75, asp=1)
#par(mfrow=c(2,1))
#layout(matrix(c(1,1), 2, 1, byrow = TRUE), widths=c(3,1), heights=c(1,2))
#layout(matrix(c(2,2), 2, 1, byrow = TRUE), widths=c(3,1), heights=c(1,2))
#layout(matrix(c(2,2), 2, 1, byrow = TRUE), widths=c(1,1), heights=c(1,1))
#layout(matrix(c(2,2), 2, 1, byrow = TRUE), widths=c(1,1), heights=c(1,1))
#layout(matrix(c(2,2), 2, 1, byrow = TRUE), widths=lcm(7,7), heights=c(1,1))

Answer 1

我认为您关注的是错误的问题。最终大小由您的 pdf 调用定义，而不是 par。使用

pdf("plots_June1_2015.pdf", width = 11.69, height = 16.53)

(11.69 x 16.53 是以英寸为单位的 A3 纸张尺寸 according to Google )

我得到了你发布的未更改代码(这是 pdf 的打印屏幕)