如何在R中编写循环，批量修改对象名及函数内对应取值

对标Stata语法逻辑的直接实现 #

完全匹配你在Stata中使用的循环占位符逻辑，代码如下：

for (i in 20:35) {
  # 动态提取对应编号的模型对象，对应Stata的model`i'
  current_model <- get(paste0("model", i))
  # 生成目标数据框
  temp_df <- as.data.frame(cbind(
    1:i,
    exclusivity(current_model),
    semanticCoherence(model = current_model, docs),
    paste0("Mod", i)
  ))
  # 动态赋值给对应编号的M变量，对应Stata的M`i' <-
  assign(paste0("M", i), temp_df)
}

核心功能对应说明：

• paste0() 用于拼接字符串生成动态对象名，等价于Stata中`i'的占位符拼接能力
• get() 可根据字符串格式的对象名，提取环境中对应的实际对象
• assign() 可根据字符串格式的变量名，将计算结果赋值给对应变量

更符合R开发习惯的优化实现 #

避免在全局环境生成15个零散变量，方便后续批量处理，推荐将结果存入统一列表：

# 初始化空列表存储所有结果
M_list <- list()
for (i in 20:35) {
  current_model <- get(paste0("model", i))
  M_list[[as.character(i)]] <- as.data.frame(cbind(
    1:i,
    exclusivity(current_model),
    semanticCoherence(model = current_model, docs),
    paste0("Mod", i)
  ))
}

# 后续调用示例：提取i=20对应的结果
# M_20 <- M_list[["20"]]

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