我懂你现在的痛点：要给数百个带相同前缀/关键词的变量批量设置继承标签，手动一个个改根本不现实对吧？你的原有代码跑不通是因为set_variable_labels的语法用错了，咱们来搞定这个问题！

问题根源 #

你尝试的这段代码：

bev.df %>% set_variable_labels(select(., contains("bev_1"))= var_label(select(., bev_1)))

不符合set_variable_labels的参数规则——它需要的是变量名 = 标签文本的键值对形式，不能直接把select()的结果作为参数名，R没法解析这种写法。

可行的解决方案 #

这里有两种方式实现批量标签设置，都能轻松处理数百个变量的场景：

方法一：分步清晰版

1. 先提取bev_1的目标标签：

target_label <- var_label(bev.df$bev_1)

2. 筛选出所有变量名包含bev_1的字段名：

bev1_vars <- names(bev.df)[grepl("bev_1", names(bev.df))]

3. 用!!!和set_names()构造符合要求的参数，批量设置标签：

bev.df <- bev.df %>%
  set_variable_labels(!!!set_names(rep(target_label, length(bev1_vars)), bev1_vars))

方法二：简洁链式版

用dplyr的across()函数直接在管道里完成操作，代码更紧凑：

bev.df <- bev.df %>%
  mutate(across(contains("bev_1"), ~set_variable_labels(., var_label(bev.df$bev_1))))

验证结果 #

运行完代码后，你可以用var_label(bev.df)查看所有变量的标签，会发现bev_1_amt的标签已经和bev_1一致，变成"water"了，完全满足你的需求。

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