如何优化R代码避免get_label生成含点号的变量名？

问题场景 #

需要将数据集的变量列表及其关联标签保存到数据框vars.n.theirlabels，但原代码中get_label生成的列名带点号，无法直接移除。

原代码 #

library(dplyr) 
vars.n.theirlabels <- get_label(mtcars) %>%
  data.frame() %>%
  mutate(var.names = colnames(mtcars))  
rownames(vars.n.theirlabels) <- NULL
View(vars.n.theirlabels)

问题原因 #

@Ben指出：先调用get_label再通过管道转data.frame()，会触发自动生成带点号的列名。将这两步嵌套即可解决该问题，后续还可按需重命名列。

优化后代码（修正原优化代码中的赋值错误） #

library(dplyr) 
library(sjlabelled)
# 嵌套get_label与data.frame，避免自动生成带点列名
vars.n.theirlabels <- data.frame(get_label(mtcars)) %>%
  mutate(var.names = colnames(mtcars))  

# 移除行名，让数据框更整洁
rownames(vars.n.theirlabels) <- NULL

# 重命名第一列为var.labels（原代码中的<=是错误，改为<-）
names(vars.n.theirlabels)[1] <- "var.labels" 

# 使用expss给列添加友好标签
library(expss) 
vars.n.theirlabels <- apply_labels(vars.n.theirlabels,
                                  var.names = "变量名称",
                                  var.labels = "变量标签")

View(vars.n.theirlabels)

优化说明 #

• 直接将get_label(mtcars)传入data.frame()，避开管道转换时的自动列名生成逻辑
• 手动重命名第一列为清晰的var.labels
• 借助expss::apply_labels给结果数据框的列添加可读性更强的标签
• 移除行名，让数据结构更规范

内容的提问来源于stack exchange，提问作者karmakameleon888