Мне интересно, есть ли простой способ только раскрасить область сюжета? Я верю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 Настройки я бы с удовольствием узнал. Заранее благодарю за любой совет.