Мне интересно, есть ли простой способ только раскрасить область сюжета? Я верю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