如何在不使用外部包的情况下在R中创建一个漂亮的biplot？

我非常喜欢典型的

R

情节。今天我必须做一个

双批次

，但是典型的

双批次

很难看。有没有一种方法可以使它更漂亮，画省略号等，而不使用其他软件包

如果这是不可能的，我如何画它看起来像经典的R图

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

---

DF我注意到，在过去3版本中绘制的点似乎与R双图中的点不匹配。在这两个版本中，y轴看起来是翻转的

从
prcomp
返回的结构具有使其具有更好样式所需的内容。投影点位于PCA$x中，因此您可以使用

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


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

更新

根据评论中的要求，我正在添加如何使用
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
允许您进行多种调整。只需查看帮助页面，就可以根据自己的喜好进行调整
 你能告诉我如何添加省略号，即使使用新的软件包吗？