如何修改image.plot图例刻度：将数字替换为字符串标签

嗨，这个问题我之前折腾过一阵子，其实有两种比较靠谱的解决方式，既能把图例的数字换成自定义字符串，还能让标签紧紧挨着对应的颜色块。下面给你详细说下：

方法一：直接自定义image.plot的图例轴参数 #

image.plot自带的图例是通过轴参数控制的，我们可以通过axis.args直接指定刻度位置和对应的自定义标签，同时调整参数让标签贴近颜色块：

library(fields)

# 生成你的数据矩阵
rot_mat = matrix(round(runif(25)*3+1),5,5)

# 定义你想要替换的自定义标签
custom_labels <- c("a", "b", "c", "d")
# 对应原数值1-4的刻度位置
tick_positions <- 1:4

# 绘制图像并自定义图例
image.plot(rot_mat, 
           xaxt= "n", yaxt= "n", frame.plot=F, 
           col = c('green', 'blue', 'red', 'yellow'),
           # 配置图例的轴参数
           axis.args = list(
               at = tick_positions,          # 指定刻度位置
               labels = custom_labels,       # 替换为自定义标签
               mgp = c(3, 0.5, 0),           # 缩小标签与刻度线的距离（默认是c(3,1,0)）
               tcl = -0.2                    # 缩短刻度线长度，避免和标签重叠
           ))

这里的mgp参数用来控制标签、刻度线和轴的距离，调小第二个值就能让标签更贴近颜色条；tcl设置刻度线向内缩短，防止和标签挤在一起。

方法二：关闭自带图例，手动绘制更灵活的图例 #

如果需要更自由地调整图例的位置或样式，可以先绘制不带图例的主图，再用image.plot单独生成自定义图例，或者用基础绘图的legend函数：

用image.plot单独生成图例 #

library(fields)

rot_mat = matrix(round(runif(25)*3+1),5,5)
color_palette <- c('green', 'blue', 'red', 'yellow')
custom_labels <- c("a", "b", "c", "d")

# 先绘制主图（不带图例）
image(rot_mat, xaxt= "n", yaxt= "n", frame.plot=F, col = color_palette)

# 单独绘制自定义图例
image.plot(legend.only = TRUE, 
           zlim = range(rot_mat),          # 匹配主图的数值范围
           col = color_palette,
           axis.args = list(
               at = 1:4, 
               labels = custom_labels,
               mgp = c(3, 0.5, 0), 
               tcl = -0.2
           ))

用基础legend函数绘制紧凑图例 #

如果你想要更简洁的块状图例（而非色条），可以用legend函数：

# 主图
image(rot_mat, xaxt= "n", yaxt= "n", frame.plot=F, col = color_palette)

# 添加紧凑的右侧图例
legend("right", 
       legend = custom_labels,
       fill = color_palette,
       border = NA,        # 去掉颜色块的边框
       bty = "n",          # 去掉整个图例的边框
       y.intersp = 0.8,    # 缩小标签与颜色块的垂直间距
       xjust = 0           # 标签左对齐，紧紧挨着颜色块
       )

这两种方法里，第一种最贴合image.plot的原生色条风格，第二种则适合需要调整图例位置或样式的场景，你可以根据自己的需求选~

内容的提问来源于stack exchange，提问作者Robin Lindström