我如何创建一个循环以更改r中标签变量中标签的文本编码

Question

我已经导入了一个Stata文件，该文件正在为我提供了值标签中的一些编码问题。在导入时，使用标记:: lookfor对于任何关键字返回以下错误：

Error in structure(as.character(x), names = names(x)) : 
  invalid multibyte string at '<e9>bec Solidaire'

知道数据集，几乎可以肯定是其中的值标签。

如何通过数据集循环使用值标签的名称，然后将其重置。我认为我已经找到了解决问题的字符的解决方案，但是我不知道如何替换原始名称。

v <- labelled(c(1,2,2,2,3,9,1,3,2,NA), c(yes = 1, "Bloc Qu\xe9b\xe9cois" = 3, "don't know" = 9))
x<- labelled(c(1,2,2,2,3,9,1,3,2,NA), c("Bloc Qu\xe9b\xe9cois" = 1, no = 3, "don't know" = 9))

mydat<-data.frame(v=v, x=x)

glimpse(mydat)
mydat %>% 
  map(., val_labels)
#This works individually
iconv(names(val_labels(x)), from="latin1", to="UTF-8")
#And this seems to work looping over each variable, but how to I store it?
mydat %>% 
  map(., function(x) iconv(names(val_labels(x)), from="latin1", to="UTF-8"))

Answer 1

在一个简单的步骤中，这似乎有点困难，因此在这里我使用了一些辅助功能

conv_names <- function(x) {
  setNames(x, iconv(names(x), from="latin1", to="UTF-8"))
}
conv_val_labels <- function(x) {
  val_labels(x) <- conv_names(val_labels(x))
  x
}

mydat <- map_dfc(mydat, conv_val_labels)

，但是我们将功能映射到每个列，然后将这些列重新分配回数据框架。注意我们使用map_dfc将列组合回数据框架