将列名复制到“label”属性中

Question

我想将列名称（对于某些列）复制到“label”属性中。下面的代码有效，但要求我输入每一行并输入我想要的每一列的列名：

data(mtcars)

attr(mtcars$mpg, "label") <- "mpg"
attr(mtcars$cyl, "label") <- "cyl"
attr(mtcars$qsec, "label") <- "qsec"

无论如何都要采用我想标记的列向量，然后将列名复制到label属性中？我想我会从这样的事情开始：

data(mtcars)

vectorofcolumnstolabel <- c("mpg","cyl","qsec")

谢谢。

另一个可能以不同方式解决同一问题的问题：

使用Tidy数据，如果你有很长的列名，例如。 “全职白人男性30-39岁的工资”，你想重命名为“white30s”：你通常会在哪里存储该栏目的完整描述？ “标签”属性是最适合这种情况的吗？

谢谢。

Answer 1

这将解决您的问题：

  mtcars[]=Map(`attr<-`,mtcars,"labels",names(mtcars))