R语言if分支对应不同变量时如何仅用一次<-完成子赋值

assign函数本身仅支持传入顶层变量名作为赋值目标，不支持携带子集索引的表达式（比如"a[2]"），所以你原来的写法无法生效。以下是几种符合R语言使用习惯的实现方案：

方案1：先取变量再修改回写（最易读，推荐日常脚本使用） #

先通过判断确定要修改的变量名，取出变量修改对应位置后再赋值回原变量：

a <- b <- 1:3
target_var <- if (sample(2, 1) == 1) "a" else "b"
# 取出变量修改子集后回写
tmp <- get(target_var)
tmp[2] <- 5
assign(target_var, tmp)

方案2：使用[<-函数实现单行赋值 #

R中所有运算符本质都是函数，子集赋值运算符[<-可以直接作为函数调用，结合assign实现无需中间变量的写法：

a <- b <- 1:3
# 先存判断结果，避免两次sample结果不一致
choose_a <- sample(2, 1) == 1
assign(
  if (choose_a) "a" else "b",
  `[<-`(get(if (choose_a) "a" else "b"), 2, value = 5)
)

方案3：用列表包裹变量（推荐正式项目使用） #

动态修改全局环境变量容易出现变量污染问题，更规范的做法是将相关变量存入列表，直接操作列表元素：

# 把关联变量存到同一个列表里
vals <- list(a = 1:3, b = 1:3)
target <- if (sample(2, 1) == 1) "a" else "b"
vals[[target]][2] <- 5
# 如果后续需要单独使用a、b变量，再批量导出到当前环境
list2env(vals, environment())

内容的提问来源于stack exchange，提问作者J. Mini