Combine list names with list levels in order to imitate the coefficient output from summary(lm(...)) objects in R (aka smushed variable names with variable levels)

list_levels.r

# 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()