如何在R语言中用dplyr和labelled包通过管道添加列标签

当然可以实现，甚至用你提到的labelled包就能搞定，只是需要用对方法。下面给你几种贴近需求的方案：

1. 自定义函数实现你想要的语法 #

自己封装一个函数，完美匹配你示例中的调用方式，支持批量传入变量-标签对：

library(dplyr)
library(labelled)

# 定义批量设置标签的函数
set_col_labels <- function(.data, ...) {
  label_list <- list(...)
  var_label(.data) <- label_list
  .data
}

# 管道调用示例
df <- mtcars %>% 
  set_col_labels(
    mpg = "Miles per gallon",
    cyl = "气缸数量",
    hp = "马力",
    wt = "车重（千磅）"
  )

验证标签是否生效：

var_label(df)

2. 直接用labelled包的原生写法 #

如果不想自定义函数，也可以用var_label()结合管道的大括号语法，同样支持批量设置：

df <- mtcars %>% 
  {
    var_label(.) <- list(
      mpg = "Miles per gallon",
      disp = "排量（立方英寸）",
      drat = "后桥比"
    )
    .
  }

3. 逐个变量设置（适合少量标签） #

如果只需要给少数变量加标签，也可以用set_label()配合mutate()：

df <- mtcars %>% 
  mutate(
    mpg = set_label(mpg, "Miles per gallon"),
    qsec = set_label(qsec, "1/4英里耗时")
  )

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