r - 在R中的绘图上标记特定点

Question

我有以下数据框：

Index    PC1             PC2        Accession_no
1    0.037971642    -0.025406954    TKNK_MOUSE
2   -0.046295802    -0.026290312    TKN1_MOUSE
3   -0.113487427     0.06782228     GALA_MOUSE
4   -0.014441264    -0.116523664    VGF_MOUSE
5   -0.112657991    -0.089605827    CALCA_MOUSE

我想用 accession_no 绘制 PC1 与 PC2 和标签点，比如 1,2 和 4 （也改变点的颜色）。

我有以下代码可以绘制并相应地为点着色。

plot(df$PC1,df$PC2, pch=19, col=ifelse(rownames(df)==c("1","2","4"),"red","black"))

但是，只有前两个点以不同的颜色显示。此外，我还想用它们对应的 Accession_no 标记完全相同的点

标签： rplot

Answer 1

select <- c(1,2,4)
plot(df$PC1,df$PC2, pch=19, col=ifelse(rownames(df) %in% select,"red","black"))
text(df$PC1[select],df$PC2[select]+0.01,labels=df$Accession_no[select],cex=0.6)

这在这里完成了工作。