R图例：减少图例列

Question

我正在使用素食库制作一些情节，使用以下代码：

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))

然后我使用此代码添加图例：

legend("bottomright", names(mydata), col=pars[1:18,1], lty= pars[1:18,2], 
       lwd=2, cex=0.5, xjust=1, ncol=2, x.intersp=0.5, y.intersp=0.5, bg="white")

结果图如下所示：

我想减少图例列之间的空间，也减少了图例框的大小，但我找不到办法做到这一点。

任何人都可以给我一些帮助吗？

Answer 1

legend（）参数的组合＆＃34; x.intersp＆＃34;和＆＃34; text.width＆＃34;应该会有所帮助。

减少＆＃34; x.intersp＆＃34; （默认值= 1，对我来说0.25看起来不错）应该将图例标签移动到更接近各自的点。减少＆＃34; text.width＆＃34; （默认值= NULL，对我来说0.045看起来不错）将列移得更近。