R语言循环中双向赋值问题：如何自动化生成目标数据框？

你的问题出在sprintf仅生成了字符串文本，并没有实际获取opfile_diet1这类对象并执行子集提取操作。以下是两种可行的解决方法：

方法一：修正循环代码，使用get()获取对象 #

先修正原代码的语法错误（diet.list最后一个元素的引号未闭合），再用get()函数获取对应名称的对象，执行列提取后完成赋值：

diet.list <- c("diet1", "diet2", "diet3")
for (diet in diet.list){
  # 获取opfile_xxx对象并提取100-200列
  data_subset <- get(sprintf("opfile_%s", diet))[, 100:200]
  # 将子集赋值给目标变量
  assign(sprintf("%s.df", diet), data_subset)
}

方法二：更推荐的R风格做法——用列表统一管理数据 #

在R中，尽量避免用assign在全局环境生成大量分散变量，推荐用列表集中管理这些子集数据，便于后续操作：

diet.list <- c("diet1", "diet2", "diet3")
# 遍历生成包含所有子集的列表
diet_df_list <- lapply(diet.list, function(x) {
  get(sprintf("opfile_%s", x))[, 100:200]
})
# 给列表元素命名，方便调用
names(diet_df_list) <- sprintf("%s.df", diet.list)

后续可通过diet_df_list$diet1.df访问对应数据框，这种方式能减少全局环境的变量混乱，管理更清晰。

内容的提问来源于stack exchange，提问作者S. Jeon