= TRUE) { # 如果颜色是由用户提供的
pgcol <- paste(pcol, "7e", sep="") # 增加不透明度
# 绘图图形
plot(x,y,...legcol <- c() # 收集图例col数据的向量
## 添加点、椭圆，并确定图例的颜色
## 图例
legend(x=legpos, legend=levels...pcol=c(), # 用于绘图的颜色(必须与因素的数量相匹配)
pbgcol=FALSE, #点的边框是黑色的？...=1.5, # 设置文本的大小
lwd=1.5 # 设置轴线的大小
)
axis(2, # 显示y轴
las=2, # 参数设置文本的方向，2是垂直的
cex.axis=1.5..., # 设置文本的大小
lwd=1.5 # 设置轴线的大小
)
title(xlab=explain\[\["PC1"\]\], # PC1所解释的方差百分比
ylab=explain
