如何在数字转换为字符时保留列标签

Question

a<- data.frame(sex=c(1,1,2,2,1,1),bq=factor(c(1,2,1,2,2,2)))
library(Hmisc)
label(a$sex)<-"gender"
label(a$bq)<-"xxx"
str(a) 

b<-data.frame(lapply(a, as.character), stringsAsFactors=FALSE)
str(b)

当我将数据帧转换为字符时，列标签消失了。我的数据框有很多列。这里仅举两个列。数字转换为字符时如何保留列标签？谢谢！

Answer 1

标签不是常用的R功能。不幸的是，你必须自己做：

b <- data.frame(lapply(a, function(x) { y <- as.character(x); label(y) <- label(x); y }), stringsAsFactors = FALSE)