如何调整Base R（非ggplot）绘制图例中填充框的尺寸？

问题描述 #

我试过各种方法，也查了不少资料（可能有点夸张），但始终没解决这个问题。现有如下代码：

barplot(VADeaths)
legend("topright", rownames(VADeaths), fill = gray.colors(nrow(VADeaths)))

我想缩小图例中值标签左侧的灰度填充框尺寸，用cex会改变图例的所有元素，pt.cex又完全没效果，该怎么操作？

解决方法 #

方法1：通过legend参数微调 #

当使用fill参数生成填充框时，填充矩形的宽度由text.width控制，高度可通过y.intersp间接调整。这种方法无需脱离默认legend函数，操作简单：

barplot(VADeaths)
# 计算文本的默认宽度，按比例缩小填充框宽度
txt_width <- strwidth(rownames(VADeaths), cex = 1)
legend("topright", rownames(VADeaths), 
       fill = gray.colors(nrow(VADeaths)),
       text.width = max(txt_width) * 0.5,  # 将填充框宽度缩小为文本宽度的一半
       y.intersp = 0.8,  # 缩小行间距，降低填充框高度
       cex = 1)  # 固定文本大小，避免被缩放

方法2：手动绘制图例（完全自定义） #

如果需要更精准的尺寸控制，可直接用基础绘图函数手动构建图例，完全摆脱legend的默认限制：

barplot(VADeaths)
# 定义图例的位置、填充框大小等参数
legend_x <- par("usr")[2] - 0.15  # 图例的起始x坐标
legend_y <- par("usr")[4] - 0.05  # 图例的起始y坐标
box_size <- 0.02  # 自定义填充框的边长
row_gap <- 0.04   # 每行图例的间距
colors <- gray.colors(nrow(VADeaths))
labels <- rownames(VADeaths)

# 循环绘制每个填充框和对应标签
for (i in seq_along(labels)) {
  current_y <- legend_y - (i-1)*row_gap
  # 绘制填充矩形
  rect(legend_x, current_y - box_size/2,
       legend_x + box_size, current_y + box_size/2,
       col = colors[i], border = NA)
  # 添加文本标签
  text(legend_x + box_size + 0.01, current_y, labels[i], adj = 0)
}

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