R语言data.frame label的设置

假设dataframe为

df <- data.frame(age = c(20, 30, 40), 
                   sex = factor(c(1, 2, 1), labels = c("男", "女"))
                   )

使用attr设定label属性

attr(df[["age"]], "label") <- "年龄"
attr(df$sex, "label") <- "性别"

使用attr查看label attribute

attr(df[["age"]], "label")
attr(df$sex, "label")

结果

> attr(df[["age"]], "label")
[1] "年龄"
> attr(df$sex, "label")
[1] "性别"

使用Hmisc::label函数设置

# Hmisc::label
label(df[["age"]]) <- "年龄"
label(df$sex) <- "性别"
label(df)

结果

> label(df)
   age    sex 
"年龄" "性别" 

Hmisc::label函数也可以一次设置完毕，这在column比较多的时候比较方便。

col.labels = c(age="年龄", sex="性别")

# method 1: match
label(df) = as.list(col.labels[match(names(df), names(col.labels))])

# method 2: lapply
label(df) = lapply(names(df), function(x) col.labels[match(x, names(col.labels))])

# method 3: loop
for(i in seq_along(df)){
    Hmisc::label(df[, i]) <- col.labels[i]
}

使用Hmisc::upData函数设置

df <- Hmisc::upData(df, labels = col.labels) 

Hmisc::contents(df)  # show dataframe metadata

使用labelled::set_variable_labels函数设置

df <- labelled::set_variable_labels(df, .labels = col.labels)
labelled::var_label(df)

结果：

> labelled::var_label(df)
$age
[1] "年龄"

$sex
[1] "性别"

label的Encoding的设置

有时读取外部数据集的时候，label的Encoding方式没有指定或者识别不对，可以使用Encoding函数指定编码方式。

for ( i in colnames(df2)) {
    Encoding(attr(df2[[i]], "label")) = "GBK"
}