置信度椭圆图函数
## 椭圆曲线图
elev=0.95, # 椭圆概率水平
pcol=NULL, # 手工添加颜色...legcol <- c() # 收集图例col数据的向量
## 添加点、椭圆,并确定图例的颜色
## 图例
legend(x=legpos, legend=levels...使用基本默认值绘制载荷图
plot(scores\[,1\], # X轴的数据
scores\[,2\], # Y轴的数据
vint, # 有类的因素..., # 图例的位置
legcexsize=1.5, # 图例文字大小
legptsize=1.5, # 图例点的大小...=1.5, # 设置文本的大小
lwd=1.5 # 设置轴线的大小
)
axis(2, # 显示y轴
las=2, # 参数设置文本的方向,2是垂直的
cex.axis=1.5