在光栅键周围绘制一个框答案

【问题标题】：drawing a box around a raster key在光栅键周围绘制一个框
【发布时间】：2016-05-12 10:00:49
【问题描述】：

我正在使用空间像素数据框在 ggplot 中绘制物种预测图。我有我想要的情节，唯一的问题是我的光栅比例从白色变为红色，所以很难看出它在图例see the plot 中的开始位置。我想画一个框来勾勒图例键的轮廓-只是从白色变为红色的条，而不是其余部分。我已经搜索了一个多小时，但我找不到任何方法来做到这一点，只有给图例一个背景或在图例文本和栏周围画一个框的方法，我不想这样做。有谁知道这是否可以在 ggplot 中完成，或者我是否需要更改颜色渐变？

谢谢！

我的绘图代码：

ggplot() +
  geom_raster(data=habs_pop_clip1, aes(x = easting.x, y = northing.x, fill = pred)) +
  scale_fill_gradient("Probability of occurrence", low="white", high="red",limits = c(0,1)) +
  coord_fixed(ratio=1, xlim=c(545000, 654000), ylim=c(278000,347000))+
  geom_polygon(data=Norfolk1, aes(x=long, y=lat, Group=group), color="grey",fill=NA)+
  theme(text = element_text(family = "serif")) +
  geom_segment(aes(x = 550000, y = 278500, xend = 560000, yend = 278500), lineend = "round") + 
  annotate("text", x = 555000, xend = 555000, y = 282000, yend = 282000, label = "10 km", family = "serif", size = 4) +
  ggtitle(colnames(bat_occ[i+7])) + 
  theme(plot.margin=unit(c(0.5, 0.5, 0.5, 0.5), "cm")) +
  theme_bw() +
  theme(axis.line = element_line(colour = "black"),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_blank(),
        panel.background = element_blank(),
        axis.line=element_blank(),
        axis.ticks=element_blank(),
        axis.title.x=element_blank(),
        axis.title.y=element_blank(),
        axis.text =element_blank())

【问题讨论】：

标签： r ggplot2 geom-raster

【解决方案1】：

不知道有没有内置参数。如果没有，你可以手动添加一个矩形，

df <- reshape2::melt(outer(1:4, 1:4), varnames = c("X1", "X2"))

p <- ggplot(df, aes(X1, X2)) + geom_tile(aes(fill = value))+ scale_fill_continuous(guide = "colorbar") 


g <- ggplotGrob(p)
g$grobs[[8]][[1]][[1]] <- gtable::gtable_add_grob(g$grobs[[8]][[1]][[1]],
                                                  rectGrob(gp=gpar(fill=NA, lwd=5)), 4, 2)
grid.newpage()
grid.draw(g)

【讨论】：

太棒了！谢谢！这正是我想要的。