如何在不使用外部包的情况下在R中制作一个漂亮的双情节图？

Question

我是典型的R情节的超级粉丝。今天我必须做一个biplot，但是典型的biplot是丑陋的。有一种方法可以使它更漂亮，画椭圆等，而不使用其他软件包？

如果不可能，我怎么能把它画成经典的R图呢？

DF <- iris
PCA <- prcomp(DF[,c(1:4)], scale. = T, center = T)
biplot(PCA)

结果：

​

​

期望的结果(用PAST3制作)

​

​

Answer 1

我注意到，在您的PAST3版本中绘制的点似乎与R双图中的点不匹配。看上去y轴是在两个版本中翻转的。

从prcomp返回的结构具有您需要的更好风格的结构。投影点在PCA$x中，因此您可以从基R绘图中得到所需的图

plot(PCA$x[,1:2], pch=20, col=iris$Species)

​

​

对于添加省略号，我总是使用car包中的dataEllipse，但这超出了不使用其他包的请求。

更新

按照注释中的要求，我将添加如何使用car包添加省略号。

library(car)
plot(PCA$x[,1:2], pch=20, col=iris$Species)
dataEllipse(PCA$x[,1], PCA$x[,2], iris$Species, lwd=1,
    group.labels = NULL, plot.points=FALSE, add=TRUE,
    fill=TRUE, fill.alpha=0.02) 

​

​

我选择了一些我认为看起来不错的东西，但dataEllipse允许您进行多种调整。只需查看“帮助”页面，就可以根据自己的口味对其进行调整。