如何缩小R语言绘图图例中列之间的间距？

针对你遇到的图例列间距过宽、调整text.width导致元素重叠的问题，可以通过精准计算列宽度结合参数调整来解决，具体方法如下：

方法1：按列计算最大宽度设置text.width #

text.width参数需要匹配每列最宽元素的宽度，手动设置容易出现重叠或间距仍过大的情况。可以先计算每列图例元素的最大宽度，再赋值给text.width：

# 先提取图例文本（避免重复编写）
legend_text <- c("", "T = 500", "T = 1000", "T = 2000",
                 expression(lambda[1]), format(eigenvalues[1, 1], digits = 3),
                 format(eigenvalues[2, 1], digits = 3), format(eigenvalues[3, 1], digits = 3),
                 expression(lambda[2]), format(eigenvalues[1, 2], digits = 3),
                 format(eigenvalues[2, 2], digits = 3), format(eigenvalues[3, 2], digits = 3))

# 计算每列的最大宽度（按3列分组）
col_num <- 3
per_col <- length(legend_text) / col_num
col_max_widths <- sapply(1:col_num, function(i) {
  idx_range <- ((i-1)*per_col + 1):(i*per_col)
  max(strwidth(legend_text[idx_range], units = "user"))
})

# 调用legend函数，使用计算好的宽度
legend("topright",
       legend = legend_text,
       lty = c(0, 1, 1, 1, rep(0, 8)),
       col = c("", "blue", "red", "gray30", rep("", 8)),
       seg.len = c(0, 1.5, 1.5, 1.5, rep(0, 8)),
       ncol = col_num, 
       bty = "o", 
       title = "",
       text.width = col_max_widths)

方法2：配合x.intersp进一步压缩间距 #

如果还需要更紧凑的效果，可以添加x.intersp参数（默认值为1），减小文本与符号之间的水平间距：

legend("topright",
       legend = legend_text,
       lty = c(0, 1, 1, 1, rep(0, 8)),
       col = c("", "blue", "red", "gray30", rep("", 8)),
       seg.len = c(0, 1.5, 1.5, 1.5, rep(0, 8)),
       ncol = col_num, 
       bty = "o", 
       title = "",
       text.width = col_max_widths,
       x.intersp = 0.8)  # 数值越小，间距越紧凑

原理说明 #

之前手动设置text.width导致重叠，是因为设置的值小于列内最宽元素的宽度，导致元素被挤压重叠。通过strwidth计算每列最大宽度，能确保每列有足够空间容纳内容，同时避免不必要的留白，从而缩小列间距。

内容的提问来源于stack exchange，提问作者Saïd Maanan