R语言 典型相关分析 代码 可视化 代码 #典型相关分析 getwd() X1 <- read.csv("Xiangguan_1.csv",header = T,row.names = 1)# 谷物 棉花 花生 油菜籽 X2 <- read.csv