在R语言中如何将动态拼接字符串作为赋值语句左侧变量名

你遇到的报错是因为R的赋值语法不支持直接在<-左侧放字符串生成表达式，R会尝试查找名为paste0<-的赋值重载函数，找不到就会报错。你可以通过以下几种方式实现需求：

• 基础R直接用assign()函数
  这是全局环境下实现动态赋值最简便的方法，第一个参数传字符串格式的变量名，第二个参数传要赋的值即可：

x1 <- "yearly"
assign(paste0(x1, "_abs_sam"), 2)

# 验证
yearly_abs_sam
# 输出: 2

• 用双括号索引赋值
  更推荐把动态生成的变量存在列表里，避免污染全局环境、方便统一管理，可以用双括号[[]]传入字符串索引赋值：

x1 <- "yearly"
# 自定义列表存储所有动态变量
dynamic_data <- list()
dynamic_data[[paste0(x1, "_abs_sam")]] <- 2

# 取值
dynamic_data$yearly_abs_sam
# 或 dynamic_data[["yearly_abs_sam"]]

如果确实要存到全局环境，也可以直接操作全局环境对象：

.GlobalEnv[[paste0(x1, "_abs_sam")]] <- 2

• Tidyverse场景下的动态列赋值
  如果你是用dplyr给数据框加动态命名的列，可以用!!注入拼接好的变量名，搭配:=操作符完成赋值：

library(dplyr)
x1 <- "yearly"
df <- data.frame(id = 1:5)
df <- df %>%
  mutate(!!paste0(x1, "_abs_sam") := 2)

运行后df会新增一列yearly_abs_sam，所有行值都为2。

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