r 将列表名称与列表级别组合以模仿R中的摘要（lm（...））对象的系数输出（也称为smushed变量名称）

Posted 2021-05-24

# place list levels in object
list_levels <- 
  mtcars %>% select(vs, gear) %>% 
  transmute(vs_fctr = factor(vs, labels = c("0. Zero", "1. One")), 
            gear_fctr = factor(gear, labels = c("3. Three", "4. Four", "5. Five"))) %>% 
  sapply(levels) # sapply extracts unique levels from all variables

# i still don't understand this code but it works...
lapply(seq_along(list_levels), 
       function(i) paste(names(list_levels)[[i]], list_levels[[i]], sep = "")) %>% 
  unlist()