R语言for循环填充Dataframe异常：无法排序及列结构错误求助

两段代码的问题根源 #

第一段代码 #

• 行索引异常：每次循环生成的obs行索引固定为1，rbind拼接后最终数据集的行索引会重复为1，而非连续的1-82。
• 性能冗余：循环中反复用rbind拼接数据，会频繁复制内存中的数据集，变量数越多效率越低。

第二段代码 #

• 类型与排序问题：空data.frame直接赋值时，R会默认将字符列转为因子类型，数值列也可能因初始类型不确定出现异常，导致后续无法正常排序。
• 列结构混乱：空数据集的赋值逻辑容易引发列类型、命名的隐性错误，甚至出现重复列。

正确实现方案 #

推荐两种方式，优先选择向量化操作（效率更高），也可以用改进后的循环实现。

方式1：向量化高效实现（推荐） #

直接计算整个相关矩阵，再按行求和，避免循环：

# 生成所有变量的绝对相关矩阵
cor_matrix <- abs(cor(mbank))
# 计算每行的总相关值（减去自身的相关值1）
total_cor <- rowSums(cor_matrix) - 1
# 转为目标结构的data.frame
korelacje <- data.frame(
  zmienna = rownames(cor_matrix),
  wartosc = total_cor,
  stringsAsFactors = FALSE
)
# 按总相关值降序排序，并重设行索引
korelacje_sorted <- korelacje[order(-korelacje$wartosc), ]
rownames(korelacje_sorted) <- 1:nrow(korelacje_sorted)

# 查看排序后的结果
print(korelacje_sorted)

方式2：改进后的循环实现 #

提前初始化固定结构的data.frame，避免拼接和类型问题：

# 用数据集列数代替硬编码的82，更灵活
n_vars <- ncol(mbank)
# 提前初始化指定行数、列类型的data.frame
korelacje <- data.frame(
  zmienna = character(n_vars),
  wartosc = double(n_vars),
  stringsAsFactors = FALSE
)

for (j in 1:n_vars) {
  # 计算当前变量与所有变量的绝对相关值之和，减去自身的1
  total_cor <- sum(abs(cor(mbank[, j], mbank))) - 1
  # 直接赋值到对应行
  korelacje$zmienna[j] <- colnames(mbank)[j]
  korelacje$wartosc[j] <- total_cor
}

# 降序排序并重设行索引
korelacje_sorted <- korelacje[order(-korelacje$wartosc), ]
rownames(korelacje_sorted) <- 1:nrow(korelacje_sorted)

# 查看结果
print(korelacje_sorted)

内容的提问来源于stack exchange，提问作者Darek