如何在R语言循环中动态修改变量赋值？

你的核心问题是在tidyverse函数（summarise/mutate）里直接用变量作为列名时，常规赋值语法不支持动态命名，同时提取数据框列的方式也有误。以下是两种解决思路：

方法一：修正循环代码 #

调整循环里的动态列名处理逻辑，使用tidyverse的**非标准求值语法（:= + !!sym()）**实现动态列名，同时用[[正确提取动态列：

beer <- c("1"="BUD LIGHT","2"="BUSCH LIGHT","3"="COORS LIGHT","4"='MILLER LITE',"5"="NATURAL LIGHT")

# 先初始化df（基于hh的基础汇总表）
df <- beer_markets %>% 
  group_by(hh) %>% 
  summarise() %>% 
  ungroup()

for (i in 1:5) {
  current_brand <- beer[i]
  # 按hh统计当前品牌的出现次数
  df2 <- beer_markets %>% 
    group_by(hh) %>% 
    summarise(!!current_brand := sum(brand == current_brand))
  
  # 将统计结果合并到df中
  df <- df %>% left_join(df2, by = "hh")
}

关键修正点： #

1. !!current_brand := sum(...)：:=是tidyverse支持动态列名的赋值运算符，!!用于强制解析变量current_brand的值作为列名
2. 用left_join替代原代码里的mutate，避免动态列赋值的额外复杂度；如果坚持用mutate，需写成mutate(df, !!current_brand := df2[[current_brand]])，用[[动态提取列，替代错误的df2$beer[i]写法

方法二：用across替代循环（更高效） #

tidyverse推荐用向量式操作代替循环，直接用across一次性处理所有品牌，代码更简洁：

beer <- c("1"="BUD LIGHT","2"="BUSCH LIGHT","3"="COORS LIGHT","4"='MILLER LITE',"5"="NATURAL LIGHT")

df <- beer_markets %>% 
  group_by(hh) %>% 
  summarise(
    # 遍历所有品牌，统计每个品牌的出现次数
    across(all_of(beer), ~sum(brand == .x))
  ) %>% 
  ungroup()

这个写法直接完成循环要做的所有操作，无需手动遍历，可读性和效率更高。

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