r - 如何在绘图中添加色框？

Question

由于某些原因，我想在这样的图中添加一个框架：

我可以这样做plot吗？ggplot或者qplot也欢迎解决方案。谢谢你。

Answer 1

set.seed(123); 
plot(x=rnorm(100, sd=1000), y=rnorm(100, sd=1000) ,ylab="", xlab="")
rect(xleft=par("usr")[1]*1.25, ybottom=par("usr")[3]*1.4, 
     xright=par("usr")[2]*1.1,ytop=par("usr")[4]*1.2, 
     lwd=5, border="orange", xpd=TRUE)

Answer 2

qplot(x= disp , y = wt , data = mtcars) +
  theme(plot.background = element_rect(colour="#CF8057",size=10))

Answer 3

您可以绘制一个实心矩形，然后print(.., vp=..)在其上绘制您的 ggplot，将其略微缩小。

这是一个不错的小函数中的示例：

borderize <- function(plotObj, thick=2, color="orange", alpha=0.8) {
  # thick should be a value between (1, 100)
  # alpha should be a value between (0, 1)

  # these could be modified for separate width/height thicknesses
  wd <- ht <-  (100 - thick) / 100
  x <- (1 - wd)  / 2 
  y <- (1 - ht) / 2

  # create a solid rectangle.  The plot will go over it. 
  grid.rect(y = 1, height = 1, just = c("center", "top"), gp=gpar(fill=color, alpha=alpha, lwd=0))

  # create the viewport
  vp.inner <- viewport(height=unit(ht, "npc"), width=unit(wd, "npc"), just=c("left","bottom"), y=y, x=x)

  print(plotObj, vp=vp.inner)

}

例如：

myPlot <- ggplot(iris,aes(Sepal.Length,Sepal.Width)) + 
                 geom_point(aes(color=Species,shape=Species))

borderize(myPlot, thick=5, color="#CF8042")

请注意，您还可以在 ggplot2 中修改plot.background和使用 theme()。 但是，这会影响您的标签和图例，具体取决于边框的粗细、字体大小等。这就是我更喜欢使用视口的原因。panel.background

例如：

plot.bg  <- theme(plot.background=element_rect(color="red", size=12))
panel.bg <- theme(panel.background=element_rect(color="blue", size=12))

plotObj + panel.bg + plot.bg

红色边框是plot，蓝色边框是panel

注意边界如何影响标签

但是，使用的好处plot.background是您可以将整个图形保存为一个对象；使用上述方法无法做到的事情borderize。