r - 如何更改 R 中子图/插图的背景颜色？

我想在 R 中的现有图中添加一个子图。子图(插图)应该具有不同的背景颜色。我尝试了以下方法:

#install.packages("TeachingDemos", dependencies=T)
library(package="TeachingDemos")

d0 <- data.frame(x = rnorm(150, sd=5), y = rnorm(150, sd=5))
d0_inset <- data.frame(x = rnorm(1500, sd=5), y = rnorm(1500, sd=5))

plot(d0)
subplot(
  fun = plot(
    d0_inset
    , col = 2
    , pch = '.'
    , mgp = c(1,0.4,0)
    , ann = F
    , cex.axis=0.5
  )
  , x = grconvertX(c(0.75,1), from='npc')
  , y = grconvertY(c(0,0.25), from='npc')
  , type = 'fig'
  , pars = list(
             mar = c(1.5,1.5,0,0) + 0.1
             , bg = "blue"              # this should change the background color
           )
)

在 subplot() 的帮助下，它表示 pars :



更改绘图的背景颜色似乎非常困难，因为图形参数在 plot() 中具有不同的含义。所以必须使用 par() 设置背景颜色。但是为什么这对 subplot 不起作用？ (我还尝试将绘图函数放入调用 par() 和 plot() 的外部函数中，但这没有帮助)。

为什么子图不能正常工作？

最佳答案

bg 的 par 参数改变设备的背景颜色而不是绘图。由于您只是将绘图添加到已经打开和使用过的设备上，因此这是不可能的(因为 base 绘图是用纸笔方式绘制的)。相反，您可以做的(建立在 this previous answer 上)如下:

plot(d0)
subplot(fun = {plot(d0_inset, mgp = c(1,0.4,0), ann = F, cex.axis=0.5);
               rect(par("usr")[1],par("usr")[3],par("usr")[2],par("usr")[4],col = "blue");
               points(d0_inset, col=2, pch=".") },
        x = grconvertX(c(0.75,1), from='npc'),
        y = grconvertY(c(0,0.25), from='npc'),
        pars = list(mar = c(1.5,1.5,0,0) + 0.1), type="fig")

编辑 :如果您希望包含注释的区域为蓝色，我看到的另一个解决方案是在绘制子图之前绘制矩形(使用您提供给子图函数的坐标):

plot(d0)
rect(grconvertX(0.75, from='npc'), grconvertY(0, from='npc'),
     grconvertX(1, from='npc'), grconvertY(0.25, from='npc'),
     col="blue", border=NA)
subplot(fun = plot(d0_inset, mgp = c(1,0.4,0), ann = F,
                    cex.axis=0.5,col=2, pch=".") ,
        x = grconvertX(c(0.75,1), from='npc'),
        y = grconvertY(c(0,0.25), from='npc'),
        pars = list(mar = c(1.5,1.5,0,0) + 0.1), type="fig")

关于r - 如何更改 R 中子图/插图的背景颜色？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/17105177/