R语言for循环运行时能否将列名拼接为生成变量的名称？

你提的两个需求都可以实现：批量生成茎叶图的过程可以完全自动化，循环中迭代生成自定义名称的变量也完全可行。

你写的代码存在两处核心错误导致无法运行：

1. R内置和car包提供的stem()函数默认仅将结果打印到控制台，本身返回值为NULL，直接赋值无法存储茎叶图内容
2. R不支持stem_colnames(Commercial_Properties[i])这种直接拼接变量名的语法，动态赋值需要用assign()函数实现

方案1：基础R循环实现 #

仅需控制台打印无需存储的版本 #

for (i in 2:5) {
  col_name <- colnames(Commercial_Properties)[i]
  # 打印变量名作为区分标题
  cat("===== 变量：", col_name, " 茎叶图 =====\n")
  stem(Commercial_Properties[[i]])
  cat("\n\n")
}

需要生成stem_变量名格式变量存储结果的版本 #

for (i in 2:5) {
  col_name <- colnames(Commercial_Properties)[i]
  # 捕获茎叶图的打印文本用于存储
  stem_content <- capture.output(stem(Commercial_Properties[[i]]))
  # 动态生成变量名并赋值到全局环境
  assign(paste0("stem_", col_name), stem_content, envir = .GlobalEnv)
  # 同时打印到控制台
  cat("===== 变量：", col_name, " 茎叶图 =====\n")
  print(stem_content)
  cat("\n\n")
}

运行后你就可以直接调用stem_Op_Expense_Tax等变量查看对应茎叶图内容。

方案2：tidyverse生态实现（更推荐） #

你已经安装了tidyverse，用purrr包的批量操作逻辑更简洁，同时用列表统一存储所有结果，不会污染全局环境：

library(tidyverse)
# 批量生成所有茎叶图，存储为命名列表
stem_result <- map(Commercial_Properties[2:5], ~ capture.output(stem(.x))) %>% 
  set_names(~ paste0("stem_", .x))

# 查看单个变量的茎叶图
stem_result$stem_Op_Expense_Tax
# 批量打印所有茎叶图
iwalk(stem_result, ~{
  cat("===== ", .y, " =====\n")
  print(.x)
  cat("\n\n")
})

注意事项 #

• 提取tibble列时推荐用[[i]]语法，会直接返回向量，无需额外调用unlist()
• 如果调用的是car包的stem()函数，上述所有代码无需修改即可直接运行

内容的提问来源于stack exchange，提问作者D.C. the III