r - 使用数据框在 r 中的排序图中着色点

Question

使用以下数据框：

df<-data.frame("sites"=as.character(1:20),"type"=c(rep("small",10),rep("large",10)))

   sites  type
1      1 small
2      2 small
3      3 small
4      4 small
5      5 small
6      6 small
7      7 small
8      8 small
9      9 small
10    10 small
11    11 large
12    12 large
13    13 large
14    14 large
15    15 large
16    16 large
17    17 large
18    18 large
19    19 large
20    20 large

我想在以下排序图中按标签（即“小”、“大”）为文本标签（即 1-20）着色：

library(vegan)
library(stats)

data(dune)
dist <- vegdist(wisconsin(dune))

#Ordinate data
pc<-cmdscale(dist, k=10, eig=TRUE, add=TRUE, x.ret =TRUE)   

#Create ordination plot     
quartz(title="PCoA on coral data")
fig<-ordiplot(scores(pc)[,c(1,2)], type="t", main="PCoA")

Answer 1

看起来文本标签颜色在​​ ordiplot 中是硬编码的，因此您必须设置绘图，然后使用 text() 按组绘制标签：

score <- scores(pc)[, 1:2]
fig<-ordiplot(score, type="n", main="PCoA")
color <- c("red", "blue")
sz <- as.numeric(df$type[as.numeric(rownames(score))])
text(score, rownames(score), col=color[sz])