r - 在 mutate 中添加变量标签

Question

我正在重新编写一些旧代码以方便学习tidyverse .在前面的代码中，我将从当前变量派生出新变量，并使用 label 为这些新变量赋予标签属性。来自 Hmisc包裹。这看起来像这样。

library(Hmisc)

iris$new <- ifelse(iris$Species == 'setosa', 1, 0)
label(iris$new) <- "New Variable"

这给出了这个结果

> str(iris$new)
 'labelled' num [1:150] 1 1 1 1 1 1 1 1 1 1 ...
 - attr(*, "label")= chr "New Variable"

我想知道是否有办法在 mutate 调用中应用这种相同类型的东西。

Answer 1

我们可以使用 structure() :

library(Hmisc)
library(dplyr)

iris <- iris %>% 
  mutate(new = structure(ifelse(iris$Species == 'setosa', 1, 0), label = "New Variable"))

label(iris$new)
#[1] "New Variable"