График линейного дискриминантного анализа

Question

Как добавить идентификатор образца (номер строки) в качестве меток в каждую точку на этом участке LDA?

library(MASS) 
ldaobject <- lda(Species~., data=iris) 
plot(ldaobject, panel = function(x, y, ...) points(x, y, ...), 
    col = as.integer(iris$Species), pch = 20) 

Answer 1

Вы можете использовать text в функции панели:

library(MASS) 
ldaobject <- lda(Species~., data=iris) 
plot(ldaobject, 
    panel = function(x, y, ...) { 
     points(x, y, ...) 
     text(x,y,labels=seq_along(x),...) ## You change labels here 
     } 
     , 
    col = as.integer(iris$Species), pch = 20)