物种积累图的传说

Question

如何向该图表添加标题？我尝试了以下命令，但图形消失了

library(vegan)
data(BCI)

sp1 <- specaccum(BCI, "random")
sp2 <- specaccum(BCI, "coleman")

plot(sp1, ci.type="poly", col="blue", lwd=2,
     ci.lty=0, ci.col = rgb(.5, .5, .5, 0.5))
plot(sp2, ci.type="poly", col="yellow",lwd=2,
     ci.lty=0, ci.col = rgb(.5, .5, .5, 0.5), add=TRUE)
legend(x="top", legend=sp1)

Answer 1

您的绘图消失的原因是，您试图创建一个图例，该图例包含sp1的全部内容，这是一个很大的数字对象。大概这不是您想要的，而您只是在寻找text“ sp1”出现在图例中。您需要指定要添加为图例中的标签的字符串的向量，以及颜色的向量。

注意，我还通过在对main = "sp1"的first调用中使用plot在此绘图中添加了标题。

library(vegan)
data(BCI)

sp1 <- specaccum(BCI, "random")
sp2 <- specaccum(BCI, "coleman")

plot(sp1, ci.type="poly", col="blue", lwd=2,
     ci.lty=0, ci.col = rgb(.5, .5, .5, 0.5), main = "sp1")
plot(sp2, ci.type="poly", col="yellow",lwd=2,
     ci.lty=0, ci.col = rgb(.5, .5, .5, 0.5), add = TRUE)
legend(x = "bottomright", legend = c("sp1", "sp2"), fill = c("blue", "yellow"))

^{由reprex package（v0.3.0）在2020-03-13创建}