r语言主成分分析代码