R语言：如何在for循环中调用动态变量实现数据集行拆分

你的问题本质是如何在循环中引用动态命名的变量——你用paste0生成了变量名字符串，但R没法直接把字符串当成变量来索引数据框，这时候有两种解决思路，我先给你快速修复现有代码的方法，再推荐更规范的R编程方式：

方法1：用get()函数调用动态变量 #

get()函数可以把字符串转换成对应的变量对象，刚好能解决你当前的问题。修改你的循环代码如下：

# 创建虚拟data frame
df <- data.frame(data=1:200)
# 设置用于subsetting的预设行号
train.length.1 = 1:50
test.length.1 = 50:100
train.length.2 = 50:100
test.length.2 = 100:150
train.list <- list()
test.list <- list()

# 修正后的循环
for (i in 1:2) { 
  # 用get()把字符串转为变量
  train_rows <- get(paste0("train.length.", i))
  test_rows <- get(paste0("test.length.", i))
  # 进行子集化
  train.list[[i]] <- df[train_rows, ]
  test.list[[i]] <- df[test_rows, ]
}

# 验证结果
head(train.list[[1]])
#>   data
#> 1    1
#> 2    2
#> 3    3
#> 4    4
#> 5    5
#> 6    6

这样就能正确调用train.length.1、train.length.2这些变量了，get()会把paste0生成的字符串（比如"train.length.1"）转换成对应的行号向量。

方法2：更规范的方式——用列表管理行号 #

其实在R中，动态命名变量是不推荐的编程习惯，因为这类变量难以管理、代码可读性差，容易出错。更好的做法是一开始就把所有行号放进列表里，直接循环列表元素：

# 创建虚拟data frame
df <- data.frame(data=1:200)

# 把行号整理成列表
train_rows_list <- list(
  1:50,
  50:100
)

test_rows_list <- list(
  50:100,
  100:150
)

# 用lapply快速生成结果（更简洁）
train.list <- lapply(train_rows_list, function(rows) df[rows, ])
test.list <- lapply(test_rows_list, function(rows) df[rows, ])

# 或者用for循环实现（逻辑更直观）
train.list <- list()
test.list <- list()
for (i in seq_along(train_rows_list)) {
  train.list[[i]] <- df[train_rows_list[[i]], ]
  test.list[[i]] <- df[test_rows_list[[i]], ]
}

这种方式代码更简洁，逻辑更清晰，后续要添加更多行号组也只需要在列表里新增元素即可，不需要修改循环逻辑。

为什么你的原代码出错？ #

你之前用df[paste0("train.length.",[i]),]的时候，实际上是用字符串作为索引，R会把字符串当成列名来查找（而你的数据框只有一列"data"），所以会返回NA，这就是错误的根源——字符串不是行号向量，必须转换成变量对象才能正确索引。

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