如何用For循环在DataFrame中合并指定列并排序指定列？

需求说明 #

需要通过For循环完成两项重复操作：

• 将DataFrame的第1列依次与第3、5、7…等奇数列（从第3列开始）合并
• 对第2、4、6…等偶数列进行排序

以下是原非循环实现的冗余代码：

first_column <- c("^","G","A","T","T","A","C","A")
second_column <- sort(first_column)
third_column <- paste(first_column,second_column)

fourth_column <- sort(third_column)
fifth_column <- paste(first_column,fourth_column)

sixth_column <- sort(fifth_column)
seventh_column <- paste(first_column,sixth_column)

eight_column <- sort(seventh_column)
ninth_coulmn <- paste(first_column,eight_column)

tenth_coulmn <- sort(ninth_coulmn)
elventh_coulmn <- paste(first_column,tenth_coulmn)

twelveth_coulmn <- sort(elventh_coulmn)

df <- data.frame(first_column,second_column,third_column,fourth_column,fifth_column,sixth_column,seventh_column,eight_column,ninth_coulmn,tenth_coulmn,elventh_coulmn,twelveth_coulmn)

df

循环实现方案 #

通过列表存储列数据，循环根据列的奇偶性执行对应操作，代码更简洁且易于扩展：

# 初始化第一列数据
first_col <- c("^", "G", "A", "T", "T", "A", "C", "A")
# 用列表存储所有列，避免创建大量单独变量
col_list <- list(first_col)

# 设置需要生成的总列数（原代码为12列，若要扩展到18列直接修改此处）
total_cols <- 12

# 循环生成后续列
for (i in 2:total_cols) {
  if (i %% 2 == 0) {
    # 偶数列：对前一列（奇数列）执行排序
    new_col <- sort(col_list[[i-1]])
  } else {
    # 奇数列（除第1列）：将第一列与前一列（偶数列）合并
    new_col <- paste(first_col, col_list[[i-1]])
  }
  col_list[[i]] <- new_col
}

# 将列表转换为DataFrame并设置列名
col_names <- c("first_column", "second_column", "third_column", "fourth_column",
               "fifth_column", "sixth_column", "seventh_column", "eight_column",
               "ninth_column", "tenth_column", "eleventh_column", "twelfth_column")
df <- data.frame(do.call(cbind, col_list))
colnames(df) <- col_names

# 输出结果
df

代码说明 #

• 用列表col_list统一管理所有列数据，避免原代码中重复创建单独变量的冗余。
• 循环逻辑根据列的奇偶性自动选择操作：偶数列排序前一列，奇数列合并第一列与前一列。
• 若需要扩展到18列，只需修改total_cols为18，无需额外编写重复代码。

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