以前肯定有人问过这个问题，但我找不到解决方案。我想用一个完美的正方形作为边界框绘制一些数据。这样做很容易，但是一旦我将par(pty="s")绘图保存为 pdf 文件，正方形就会丢失。据我了解，这是因为pdf()用作paper="special"默认值，因此尊重width和height（由于我们有轴标签，因此不会给出完美的正方形）。但是指定其他paper选项并没有帮助。
## the bounding rectangle in the following plot is a perfect square...
U <- matrix(runif(1000), ncol=2)
par(pty="s")
plot(U, type="p", xlab="U_1", ylab="U_2")
## ... however, not anymore if the plot is generated as a .pdf
pdf(file="U.pdf", width=6, height=6)
par(pty="s")
plot(U, type="p", xlab="U_1", ylab="U_2")
dev.off()