R 到 Stata : Exporting tibble with value labels

Question

我的任务是编写一个具有变量标签和值标签的 Stata 可读数据框。看来 haven 包最适合做这样的操作(比 readstata13 和 foreign 更好)。

我从创建 tibble 开始:

library(haven)

x1 <- labelled(
  sample(1:5), 
  c(Good = 1, Bad = 5)
)
x1

x2 <- labelled(
  c("M", "F", "F", "F", "M"), 
  c(Male = "M", Female = "F")
)
x2

df <- tibble::data_frame(x1, x2, z = 1:5)
df

然后，我导出小标题

write_dta(df)

当我在 Stata 中读取它时，标签替换了实际值(在 x1 中，1 等于“好”，5 等于“坏”)。我如何读取 Stata 中的小标题，使值保持在 1 到 5 之间，并将“好”和“坏”存储为值标签？

Answer 1

这是可能的，但比较麻烦，您必须使用 attr 手动附加标签¹ 函数如下例所示。

# Attach variable and value labels to a new R data.frame
attr(df, "var.labels") <- c("my var label 1", "my var label 2")
# To create and attach value labels
val1 <- c(apple=10, beans=20)
val2 <- c(kg=1, bag=2)
attr(df, "label.table") <- list(val1, val2)
attr(df, "val.labels") <- c("val1", "val2")
# And finally describe the dataset
attr(df, "datalabel") <- "Collected from MWI 2013"

---

¹原解由Melanie Bacou提供，为available in this gist.