R绘图：如何缩小vegan包rarecurve图例的列间距与图例框

针对你遇到的图例列间距过宽、图例框偏大的问题，这里有几个实用的参数调整技巧，结合起来就能达到你想要的紧凑效果：

1. 缩小图例列间距 #

图例的列间距核心由text.width参数控制，它定义了每列标签的宽度上限。你可以先计算标签的实际宽度，再设置一个略小于默认值的数值来压缩列间距：

# 计算当前cex下标签的宽度
label_width <- strwidth(names(mydata), cex=0.5)
# 取平均宽度并乘以0.8左右的系数，缩小列间距（可根据效果微调）
target_width <- mean(label_width) * 0.8

2. 减小图例框尺寸 #

图例框的大小由内容自动适配，除了压缩列间距，还可以通过以下方式进一步缩小：

• 精确控制图例位置：不用默认的"bottomright"字符串，直接指定坐标让图例更贴近角落，避免多余空白：

# 获取当前绘图区域的边界坐标
usr <- par("usr")
# 自定义图例的右下角坐标，比默认位置更紧凑
legend_x <- usr[2] - 0.08*(usr[2]-usr[1])
legend_y <- usr[3] + 0.08*(usr[4]-usr[3])

• 文本左对齐：添加adj = c(0, 0.5)让标签左对齐，消除右侧不必要的留白。

完整调整后的代码示例 #

把这些调整整合到你的原有代码中，最终版本如下：

raremax <- min(colSums(mydata))
col <- palette()
lty <- c("solid", "dashed", "longdash", "dotdash")
pars <- expand.grid(col = col, lty = lty, stringsAsFactors = FALSE)
out <- with(pars[1:18, ], rarecurve(mydata, step = 100, sample = raremax, cex =0.6, ylab="OTUs", label=F, col=col, lty=lty, lwd=2))

# 计算标签宽度并设置目标列宽
label_width <- strwidth(names(mydata), cex=0.5)
target_width <- mean(label_width) * 0.8

# 获取绘图区域坐标，自定义图例位置
usr <- par("usr")
legend_x <- usr[2] - 0.08*(usr[2]-usr[1])
legend_y <- usr[3] + 0.08*(usr[4]-usr[3])

# 调整后的图例代码
legend(legend_x, legend_y,
       names(mydata), 
       col=pars[1:18,1], 
       lty=pars[1:18,2], 
       lwd=2, 
       cex=0.5, 
       xjust=1, 
       yjust=0,
       ncol=2, 
       x.intersp=0.5, 
       y.intersp=0.5, 
       bg="white",
       text.width = target_width,
       adj = c(0, 0.5)
)

你可以根据图表实际显示效果，微调target_width的系数（比如0.7-0.9之间）、legend_x/legend_y的偏移量，直到得到满意的紧凑图例。

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