如何在 ordiplot3d 中给单个数据点添加标签？

Question

有没有办法在 ordiplot3d 绘图中添加单个数据点标签呢？以下是使用 data 包的示例。

library(vegan3d)
library(ggplot2)


data(dune, dune.env)
SITE_ID <- c("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t")
dune.env$SITE_ID <- SITE_ID
ord <- cca(dune ~ A1 + Moisture, dune.env)
ordiplot3d(ord)
pl4 <- with(dune.env, ordiplot3d(ord, col = Management, pch=16,angle=50))
with(dune.env, ordihull(pl4, dune.env$Management, draw = "poly", col = 1:4,label=T,
                    alpha = 50))

- vines

Answer 1

这应该可以正常工作！

sp <- scores(pl4, choices=1:3, display="sites", scaling="symmetric")
spp <- as.data.frame(cbind(dune.env$SITE_ID,sp))
with(dune.env, ordilabel(pl4,labels=spp$V1,col="black", fill=NA, border=NA))

- riverotter