这里有一个函数corr_matrix,它接受数据帧df并返回所有变量对之间的相关矩阵。它还返回具有最佳相关性和最差相关性的变量对的向量best_worst。
corr_matrix <- function(df) {
# Get the number of variables in the dataframe
n_vars <- ncol(df)
# Initialize a matrix to store the correlations
corr_mat <- matrix(nrow=n_vars,