R: назначить переменные метки столбцов фрейма данных

Вы можете сделать это, создав список из именованного вектора var.labels и назначив его значениям label. Я использовал match, чтобы гарантировать, что значения var.labels присваиваются соответствующему столбцу в data, даже если порядок var.labels отличается от порядка data столбцов.

library(Hmisc)

var.labels = c(age="Age in Years", sex="Sex of the participant")

label(data) = as.list(var.labels[match(names(data), names(var.labels))])

label(data)
                     age                      sex 
          "Age in Years" "Sex of the participant" 

Исходный ответ

В моем первоначальном ответе использовалось lapply, что на самом деле не нужно. Вот исходный ответ для архивных целей:

Вы можете назначить метки, используя lapply:

label(data) = lapply(names(data), function(x) var.labels[match(x, names(var.labels))])

lapply применяет функцию к каждому элементу списка или вектора. В этом случае функция применяется к каждому значению names(data) и выбирает значение метки из var.labels, которое соответствует текущему значению names(data).

Чтение нескольких руководств - хороший способ получить общее представление, но вы действительно освоите его, если начнете использовать lapply в разных ситуациях и посмотрите, как он себя ведет.

Я настоятельно рекомендую использовать функцию Hmisc::upData().

Вот пример REPEX:

set.seed(22)
data <- data.frame(age = floor(rnorm(6,25,10)), 
                   sex = gl(2,1,6, labels = c("f","m")))
var.labels <- c(age = "Age in Years", 
                sex = "Sex of the participant")
dplyr::as.tbl(data) # as tibble ---------------------------------------------
#> # A tibble: 6 × 2
#>     age    sex
#>   <dbl> <fctr>
#> 1    19      f
#> 2    49      m
#> 3    35      f
#> 4    27      m
#> 5    22      f
#> 6    43      m
data <- Hmisc::upData(data, labels = var.labels) # update data --------------
#> Input object size:    1328 bytes;     2 variables     6 observations
#> New object size: 2096 bytes; 2 variables 6 observations
Hmisc::label(data) # check new labels ---------------------------------------
#>                      age                      sex 
#>           "Age in Years" "Sex of the participant"
Hmisc::contents(data) # data dictionary -------------------------------------
#> 
#> Data frame:data  6 observations and 2 variables    Maximum # NAs:0
#> 
#> 
#>                     Labels Levels   Class Storage
#> age           Age in Years        integer integer
#> sex Sex of the participant      2         integer
#> 
#> +--------+------+
#> |Variable|Levels|
#> +--------+------+
#> |   sex  |  f,m |
#> +--------+------+

Вместо {Hmisc} можно использовать пакет {labelled}:

data <- labelled::set_variable_labels(data, .labels = var.labels)

Если ваш вектор меток соответствует порядку столбцов data.frame, но не является именованным вектором (поэтому его нельзя использовать для подмножества столбцов data.frame по имени, как подход lapply в другом ответе), вы можете использовать цикл for:

for(i in seq_along(data)){
  Hmisc::label(data[, i]) <- var.labels[i]
}

label(data)
#>                      age                      sex 
#>           "Age in Years" "Sex of the participant"