如何在R中根据样本id标记PCA点

我有一个使用对象“选项卡”制作的 PCA 图：

>tab
    sample.id           EV1           EV2
1        G495 -0.0074331465 -3.837111e-02
2          G1 -0.0141980856  6.964191e-02
3         G10 -0.0866563029  2.645573e-02
4        G162 -0.0052063398  5.399684e-02
5        G163 -0.0200554468  2.769749e-02

PCA 图代码：

plot(tab$EV2, tab$EV1, xlab="eigenvector 2", ylab="eigenvector 1")

我想添加基于 PCA 点标签sample.id选项卡中的列。

感谢您的帮助！

您还可以使用geom_label_repel() or geom_text_repel() from ggrepel:

library(ggplot2)
library(ggrepel)

tab = structure(list(sample.id = structure(c(5L, 1L, 2L, 3L, 4L), .Label = c("G1", 
"G10", "G162", "G163", "G495"), class = "factor"), EV1 = c(-0.0074331465, 
-0.0141980856, -0.0866563029, -0.0052063398, -0.0200554468), 
    EV2 = c(-0.03837111, 0.06964191, 0.02645573, 0.05399684, 
    0.02769749)), class = "data.frame", row.names = c("1", "2", 
"3", "4", "5"))

ggplot(tab,aes(x=EV2,y=EV1,label=sample.id))+
geom_point()+ xlab("eigenvector 2")+ 
ylab("eigenvector 1") + geom_label_repel()