在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

我想绘制PC1 vs PC2，并用accession_no标记索引分别为1,2和4的点（还可以更改点的颜色）。

我有以下代码可以绘制和相应着色点。

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

但是，只有前两个点显示为不同的颜色。 而且，我还想用它们对应的Accession_no

标记完全相同的点

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)

这就是这里的工作。