我正在使用素食库制作一些绘图,使用以下代码:
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")
结果图如下所示:
我想减少图例列之间的空间,同时减少图例框的大小,但我找不到办法做到这一点。
任何人都可以为我提供一些帮助吗?
最佳答案
Legend() 参数“x.intersp”和“text.width”的组合应该会有所帮助。
减少“x.intersp”(默认值 = 1,对我来说 0.25 看起来不错)应该将您的图例标签移近它们各自的点。减少“text.width”(默认值=NULL,对我来说 0.045 看起来不错)使列靠得更近。
关于R 绘图图例 : Reduce space between legend columns,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/48149724/