第二个mfrow在这段代码中的作用是什么？

Question

第二个mforw在此代码中的作用是什么？我的意思是par(mfrow=c(1, 1))

sales <- function(price) { 100 - 0.5 * price }
revenue <- function(price) { price * sales(price) }
par(mfrow=c(1, 2))
 curve(sales, from=50, to=150, xname="price", ylab="Sales",main="Sales")
 curve(revenue, from=50, to=150, xname="price", ylab="Revenue",
main="Revenue")
 par(mfrow=c(1, 1))

Answer 1

最后调用par(mfrow=c(1, 1))是尝试重置默认图形设备的参数。这样，下次代码绘制时，它将只有一个图。

更好的选择是在修改参数old.par <- par(no.readonly = TRUE)之前记住参数，然后在完成绘图后重置所有参数par(old.par)

Answer 2

问题解决了。当我复制代码然后将其粘贴到RGui中时，如果有第二个par，我会立即看到收入曲线，但如果没有第二个par我必须按回车键才能看到收入曲线。