## 获取椭圆的数据
edf x, LV2=y, factr = f) # 用数据和因子创建数据框
ellipses 按因子水平获取置信度椭圆点
})
## 获取X和Y数据的范围
xrange 是由用户提供的
pgcol <- paste(pcol, "7e", sep="") # 增加不透明度
# 绘图图形
plot(x,y,...scores\[,2\], # Y轴的数据
vint, # 有类的因素
pcol=c(), # 用于绘图的颜色(必须与因素的数量相匹配...)
pbgcol=FALSE, #点的边框是黑色的?