如何在R语言中自定义colorkey图例：非矩形样式及符号添加

问题需求 #

• 能否将levelplot的colorkey图例设置为默认矩形以外的样式（例如参考图中的特殊样式）
• 若无法实现，如何在图例两端添加<或>符号

测试代码 #

颜色配置代码 #

color_range <- colorRampPalette(c("aliceblue", "deepskyblue3","darkblue"))
my_colors <- color_range(10)
my.at=seq(0,20,by=2)
my.brks=seq(0,20,by=2)
myColorkey <- list(at=my.at, labels=list(at=my.at))

随机栅格测试代码 #

set.seed(123)
r <- raster(nrow = 10, ncol = 10)
values(r) <- runif(ncell(r), min = 0, max = 20)
crs(r)<-NA

levelplot(r, col.regions=my_colors, at=my.at,margin=F, colorkey=myColorkey, par.settings=list(axis.line=list(col=NA)), 
          main="Random Raster")

解决方案 #

1. 非矩形colorkey样式实现 #

在lattice包的levelplot中，默认colorkey是固定的矩形色块条，要改成非矩形样式（比如特殊形状、不规则色块）难度较高。因为colorkey的底层绘图逻辑是基于矩形色块的排列，没有直接参数支持自定义形状。如果需要这类效果，通常有两种思路：

• 用grid包手动绘制自定义图例，覆盖levelplot默认生成的colorkey
• 切换到ggplot2等更灵活的可视化包，配合scale_fill_gradientn等函数实现自定义样式的图例

2. 图例两端添加</>符号 #

你找到的方法完全可行，只需在myColorkey的labels参数里直接指定带符号的标签即可，注意标签数量要和断点数量匹配（断点my.at有11个值，对应10个色块区间，所以需要11个标签覆盖两端和中间的区间说明）：

myColorkey <- list(at=my.at, labels=c("< 0","2","4","6","8","10","12","14","16","18","> 20"))

将这个配置传入levelplot的colorkey参数，就能得到两端带符号的图例效果。

内容的提问来源于stack exchange，提问作者CovetTachi