R中的曲线图线性判别分析 [英] plot linear discriminant analysis in R

问题描述

我想在散点图中绘制两个矩阵。我怎么能做到这一点？我喜欢这个情节看起来像

我用Fischer方法计算两类的线性判别分析。我是这样计算的：

XM1 <- matrix(data=c(4,2, 2,4, 2,3, 3,6, 4,4), ncol = 2, byrow = TRUE)
XM2 <- matrix(data=c(9,10, 6,8, 9,5, 8,7, 10,8), ncol = 2, byrow = TRUE)
mi1 <- apply(XM1, MARGIN = 2, FUN = "mean")
mi2 <- apply(XM2, MARGIN = 2, FUN = "mean")
Sb <- (mi1-mi2)%*%t(mi1-mi2)
sum.cov <- (cov(XM1)+cov(XM2)) 
SwSb <- solve(sum.cov)%*%Sb
eg <- eigen(SwSb)

如何使用abline(使用eigenval结果)绘制这两个矩阵(一个带圆圈，第二个带正方形)？

推荐答案

以下是ggplot2解决方案。首先，您必须以适当的形式提供数据：

mdf <- as.data.frame( rbind(XM1, XM2) )
names(mdf) <- c("x1", "x2")
mdf$f <- c( rep( "a", nrow(XM1) ), rep( "b", nrow(XM2) ) )
head(mdf)
  x1 x2 f
1  4  2 a
2  2  4 a
3  2  3 a
4  3  6 a
5  4  4 a
6  9 10 b

然后这将产生一个类似于您所示的图：

library(ggplot2)
ggplot( mdf, aes(x=x1, y=x2, col=f) ) +
  geom_point( size = 4, aes(shape = f) ) +
  geom_abline( slope = eg$vectors[2,1] / eg$vectors[1,1], colour = "green"  ) +
  scale_shape_manual(values=c(16,15)) +
  expand_limits( y = 0, x = 0) +
  labs( title = paste("LDA projection vector with highest eigen value =", round(eg$values[1], 2)) ) +
  theme_bw() 

这篇关于R中的曲线图线性判别分析的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！