使用列索引与循环转换DataFrame：键值对提取堆叠问题

首先，咱们来拆解下你遇到的问题：你的函数只返回最后一组键值对，主要有三个核心原因：

1. 全局变量依赖+无返回值：你在函数外部定义了outfile，但函数moveit没有返回这个列表，所以result <- moveit(mydata)实际上得到的是NULL——你看到的"最后一组"其实是全局环境里outfile的最后一个元素，而不是函数返回的结果。
2. 循环break条件错误：当i == dim(df)[2]-1时直接break，这会跳过最后一个奇数列的处理（比如你的数据有10列，i=9是最后一个奇数列，此时i刚好等于10-1，直接触发break，根本没执行提取操作）。
3. 列表索引混乱：用i+1作为列表索引会导致列表出现大量空位置（比如i=1时用索引2，索引1是空的），后续合并时会遗漏数据。

接下来，咱们直接给出修复后的方案，同时保证函数可以适配不同列数和列名的DataFrame：

修复方案1：Base R循环实现（通用型） #

这个方案严格按照你最初的"奇偶列对"思路，同时优化了逻辑：

moveit <- function(df) {
  # 获取所有奇数列的索引，自动处理任意偶数列数的情况
  odd_cols <- seq(from = 1, to = ncol(df), by = 2)
  # 如果总列数是奇数，自动剔除最后一列（你也可以根据需求调整这个逻辑）
  if (ncol(df) %% 2 != 0) {
    warning("输入数据列数为奇数，已忽略最后一列")
    odd_cols <- odd_cols[-length(odd_cols)]
  }
  
  # 初始化内部列表，避免依赖全局变量
  output_list <- list()
  
  # 循环处理每个奇数列对应的列对
  for (idx in seq_along(odd_cols)) {
    current_odd <- odd_cols[idx]
    # 提取奇数列和对应的偶数列
    pair_df <- df[, c(current_odd, current_odd + 1)]
    # 统一列名，方便后续合并
    colnames(pair_df) <- c("group", "score")
    # 存入列表，用连续索引避免空元素
    output_list[[idx]] <- pair_df
  }
  
  # 将所有子DataFrame堆叠成一个大的DataFrame
  do.call(rbind, output_list)
}

# 测试函数
result <- moveit(mydata)
str(result)

修复方案2：Tidyverse简洁实现（适合熟悉tidyverse的场景） #

如果你习惯用tidyverse工具包，pivot_longer可以更优雅地完成这个任务，不需要写循环：

library(tidyverse)

moveit_tidy <- function(df) {
  # 先给每行加个ID，用来保留原行对应关系
  df %>%
    mutate(row_id = row_number()) %>%
    # 把所有列转成长格式，按奇偶列分组
    pivot_longer(
      -row_id,
      names_to = c(".value", "pair"),
      # 正则匹配：把列名分成"值类型"和"组序号"两部分
      names_pattern = "(.*?)(\\d*$)"
    ) %>%
    # 筛选出group类和score类的列，合并成目标格式
    select(group = starts_with("group"), score = !starts_with("group"), -pair, -row_id)
}

# 测试
result_tidy <- moveit_tidy(mydata)
str(result_tidy)

验证结果 #

运行任意一个方案后，你都会得到一个包含所有组-分数对的DataFrame，结构如下：

'data.frame':	20 obs. of  2 variables:
 $ group: chr  "Rugby for Chipmunks" "Rugby for Chipmunks" "Rugby for Chipmunks" "Chafing Explained" ...
 $ score: num  5 3.57 5 4.5 4 4 3.17 2.17 5 3 ...

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