Маркировка конкретной точки на графике в 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 против PC2 и обозначить точки с индексом скажем 1,2 и 4 с accession_no (также измените цвет точек).

У меня есть следующий код, который строит и соответственно окрашивает точки.

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)

Это делает работу здесь.