R 到 Stata : Exporting dataframe with variable labels

Question

我有一个 R 数据集，我使用 {Hmisc} 包应用了变量标签。但是，当我将数据集导出到 Stata 时(使用 {foreign} 包中的 write.dta 函数)，变量标签不会出现在 Stata 中。相反，变量名称也显示为变量标签。数据集包含如下变量:

X1X2X3

在 Stata 中，我希望变量具有与变量名称关联的变量标签，如下所示:

X1“状态”X2“人均收入”X3“人口”

当然，如果我可以在 Stata 而不是 R 中应用标签，这一切都会更容易，但我正在尝试向专门使用 R 的研究人员提供代码。不幸的是，我需要将数据发送到数据存储库，这要求数据集文件格式为 Stata。

我尝试修改此处提供的代码:information from `label attribute` in R to `VARIABLE LABELS` in SPSS 。没成功。

这就是我生成变量标签的方式:

library(Hmisc)
label(data[,1]) <- "State"
label(data[,2]) <- "Per Capita Income"
label(data[,3]) <- "Population"

为了导出到 Stata，我使用了这个:

library(foreign)
write.dta(data,file="C:/Users/Me/Desktop/data.dta")

根据另一篇文章，我尝试这样做来使变量标签“粘住”:

df<-data
get.var.labels <- function(data){
a<-do.call(llist,data)
tempout<-vector("list",length(a))
for (i in 1:length(a)){
tempout[[i]]<-label(a[[i]])
}
b<-unlist(tempout)
structure(c(b),.Names=names(data))
}
attributes(df)$variable.labels=get.var.labels(df)

该代码是为了导出到 SPSS 而编写的，所以我没想到它会起作用。尽管如此，我还是希望能找到类似的东西来为 Stata 做同样的事情。

任何帮助将不胜感激!!

顺便说一句，数据框确实有列名称，但为了数据管理的目的，我希望它们更具描述性。同时，我想保留原始列名称(基本上是 X1、X2、X3)，以便研究人员可以继续以这种方式引用变量。

Answer 1

您可以使用该功能

write.dta

从包装中

foreign

解决这个问题。但首先，您必须向数据集添加一个属性，如下所示:

attr(data, "var.labels") <- c("State", "Per Capita Income","Population")

然后导出您的数据集:

write.dta(data, file="mydata.dta")

就是这样!它对我有用，我希望对你来说也是如此。