我如何创建变量名及其级别的表？

Question

我正在尝试创建一个包含两列的表：1）变量名称，2）该变量的级别。

这里是数据帧的伪代码：

Data <- data.frame(Gender = sample(c("male", "female", "other"),10, replace = TRUE), Age = sample(1:10), Happiness = sample(c("Very","Some","None"), 10, replace = TRUE))

所以从本质上讲，我只需要一个表说：

变量名|级别

性别| 1 =男，2 =女，3 =其他

年龄|数字

幸福| 1 =非常，2 =有些，3 =没有

我该怎么做？

Answer 1

通过底数R的想法可以是，

data.frame(Levels = sapply(Data, function(i){i1 <- levels(i); 
              ifelse(length(i1) > 0, paste0(seq_along(i1), ' = ', i1, collapse = ' '), class(i))}))

#                                 Levels
#Gender    1 = female 2 = male 3 = other
#Age                             integer
#Happiness    1 = None 2 = Some 3 = Very