PCA=princomp(new_data,cor=T) Error in cov.wt(z) : 'x' must contain finite values only

这个错误通常表示输入数据包含缺失值或无穷大的值。你可以尝试使用 `complete.cases()` 函数来删除包含缺失值的观测值，或者使用 `is.finite()` 函数来删除包含无穷大值的观测值。例如：

# 删除包含缺失值的观测值
new_data <- new_data[complete.cases(new_data),]

# 删除包含无穷大值的观测值
new_data <- new_data[is.finite(new_data),]

# 运行主成分分析
PCA <- princomp(new_data, cor=T)

如果你仍然遇到问题，请检查你的数据是否正确，并确保所有的值都是数值型数据。