如何在R中打印函数中的变量名

我正在处理一个包含许多变量的大型数据帧。所有这些变量都有一个和多个标签。我正在尝试构建一个函数，在这个函数中，我自动获取标签、标签、带有NA的表和原始变量名（这样我就知道哪个标签对应哪个变量）

我构建了以下函数

printattfun <- function(x){
  label <- attr(x, "label")
  labels <- attr(x, "labels")
  table <- table(x, useNA = "ifany")
  print(label)
  print(labels)
  print(table)
  }

我唯一无法创建的是，它还显示原始df中的变量名。我已经尝试将此添加到我的函数中

names(attr(x, "label") (which returns NULL)
colnames(x) (which also returns NULL)

此外，我还阅读了有关desparse和substitute的内容，并尝试将其添加到我的函数中：

nm <- deparse(substitute(x)); strsplit(nm, '\\[')
print(nm)

---

nm尝试使用
get（）
函数。您能否提供一个示例数据集和预期输出，以使这一点更加清楚？了解
nm <- deparse(substitute(x)); strsplit(nm, '\\[')
print(nm)