使用 ggplot2 的线性判别分析图

【问题标题】：Linear discriminant analysis plot using ggplot2使用 ggplot2 的线性判别分析图
【发布时间】：2013-11-25 15:42:27
【问题描述】：

如何使用 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()

【问题讨论】：

标签： r ggplot2

【解决方案1】：

你只需要使用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 包。

【讨论】：