如何使用 ggplot2 将样本 ID(行号)作为标签添加到此 LDA 图中的每个点?
谢谢
脚本:
require(MASS)
require(ggplot2)
data(iris)
irisLda <- lda(iris[,-5],iris[,5])
irisLda <- lda(Species~.,data=iris)
plot(irisLda)
irisProjection <- cbind(scale(as.matrix(iris[,-5]),scale=FALSE) %*% irisLda$scaling,iris[,5,drop=FALSE])
p <- ggplot(data=irisProjection,aes(x=LD1,y=LD2,col=Species))
p + geom_point()
最佳答案
您只需要使用 geom_text
:
irisProjection$row_num = 1:nrow(irisProjection)
p <- ggplot(data=irisProjection, aes(x=LD1,y=LD2,col=Species)) +
geom_point() + geom_text(aes(label = row_num))
print(p)
也许你需要和
hjust
一起玩玩和 vjust
,它们是 geom_text
的一部分.您可能还想查看 directlabels
用于智能标签放置的包装。关于r - 使用 ggplot2 的线性判别分析图,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/20197106/