在 R 中使用plot()时如何摆脱网格？

因此，我使用 R 通过 Vegan 包执行 DCA（去趋势对应分析），每次绘制结果时，我都会在图中间得到一个网格。

我想摆脱它。

这是我的代码：

dca <- decorana(dados)

plot(dca, type = "n", ann = FALSE, origin = TRUE)
        text(dca, display = "sites")
        points(dca, display = "species", pch = 21, col="red", bg = "red", cex=0.5)
        mtext(side = 3, text = "Análise de Correspondência Retificada (DCA)", font=2, 
              line = 2.5, cex=1.8, font.lab=6, cex.lab=2, cex.axis=1.5)
        mtext(side = 1, text = "Eixo I", font=2, line = 2.5, cex=1.5, 
              font.lab=6, cex.lab=2, cex.axis=2)
        mtext(side = 2, text = "Eixo II", font=2, line = 2.5, cex=1.5, 
              font.lab=6, cex.lab=2, cex.axis=2)

这是结果：DCA plot https://i.stack.imgur.com/966Y0.png

你看到 x=0 和 y=0 之间的网格线了吗？那就是问题所在。

正如现有的各种文档和教程中经常提到的那样，如果您不喜欢由plot()您可以自由地使用 R 提供的低级绘图函数或我们提供的中间函数来构建自己的绘图函数vegan.

这里的主要复杂性是，由于某种原因，我们不能不用type = "none" in the plot方法。但即便如此，也可以通过自己绘制分数来解决。

library("vegan")
data(dune)
dca <- decorana(dune)
spp <- scores(dca, 1:2, display = "species")
sit <- scores(dca, 1:2, display = "sites")
xlim <- range(spp[,1], sit[,1])
ylim <- range(spp[,2], sit[,2])
plot(spp, type = "n", xlim = xlim, ylim = ylim, asp = 1, ann = FALSE)
text(sit[,1], sit[,2], labels = rownames(sit))
points(spp, pch = 21, col = "red", bg = "red", cex = 0.5)
title(xlab = "DCA 1", ylab = "DCA 2")

这是默认值的并排比较plot.decorana以及上面所画的内容