绘图区域颜色是否有`par()`设置？

Question

我想知道是否有一种简单的方法只为绘图区域着色？我相信该par()$bg设置定义了整个设备背景的颜色,因此我一直在应用低级绘图命令polygon将彩色矩形添加到整个绘图区域.

例

#colored device background
x11()
par(bg="grey90")
plot(x=1, y=2)
grid(col="white", lty=1)
points(x=1, y=2)

#colored plot area only
x11()
plot(x=1, y=2)
usr <- par()$usr
polygon(x=c(usr[1], usr[1], usr[2], usr[2]), y=c(usr[3], usr[4], usr[4], usr[3]), col="grey90")
grid(col="white", lty=1)
points(x=1, y=2)

这可能是唯一的方法,但如果在par设置中有更简单的方法,我很想知道.提前感谢任何建议.

Answer 1

我非常肯定没有任何标准的说法,它本身可以做你想要的.

这里虽然比你的方法更简单.它使用plot.default()的panel.first参数在背景中绘制一个以原点为中心的巨大填充点.点的范围至少是每个方向的googol立方单位,我已经确认这适用于R的原生Windows绘图设备,以及pdf和png设备:它似乎是一个非常通用的解决方案.

## Your example
plot(x=1, y=2, 
     panel.first={points(0, 0, pch=16, cex=1e6, col="grey90")
                  grid(col="white", lty=1)})

## Or, for repeated use, make it a function:
ggbg <- function() {
    points(0, 0, pch=16, cex=1e6, col="grey90")
    grid(col="white", lty=1)
}
plot(x=1, y=2, panel.first=ggbg())

## Also works for plots running out to 1e300 in each direction
plot(x=-1e300, y=1e300, panel.first=ggbg())