这些数据是对生长在意大利同一地区但来自三个不同栽培品种的葡萄酒进行化学分析的结果:内比奥罗、巴贝拉和格里格诺葡萄。来自内比奥罗葡萄的葡萄酒被称为巴罗洛。...= TRUE) { # 如果颜色是由用户提供的
pgcol <- paste(pcol, "7e", sep="") # 增加不透明度
# 绘图图形
plot(x,y,...legcol 图例col数据的向量
## 添加点、椭圆,并确定图例的颜色
## 图例
legend(x=legpos, legend=levels...,1\], # X轴的数据
scores\[,2\], # Y轴的数据
vint, # 有类的因素
pcol=c(), # 用于绘图的颜色...设置标签的位置
labels=rownames(PCAloadings), # 输出标签
cex=1.5 # 设置标签的大小
) # pointLabel将尝试将文本放在点的周围