Error: Problem with `mutate()` input x `labels` must be unique

Question

我正在尝试按照以下方式将一些标记变量重新编码为 0 到 1 的比例。当我尝试使用 c_across() 计算两个变量的平均值时，我得到了这个奇怪的错误 Error: Problem with mutate() input market_liberalism. x labels must be unique.

如果我删除值标签，它就可以工作了。我不明白价值标签会导致什么问题。谢谢。

#Install car package if necessary
#install.packages('car')
library(tidyverse)
library(car)
structure(list(PESE15 = structure(c(3, 5, 5, 8, NA), label = "The Government Should Leave it Entirely to the Private Sector to Create Jobs", na_values = c(8, 9), format.spss = "F1.0", display_width = 0L, labels = c(`Strongly agree` = 1, `Somewhat agree` = 3, Somewhatdisagree = 5, Stronglydisagree = 7,D.K. = 8, Refused = 9), class = c("haven_labelled_spss", "haven_labelled",  "vctrs_vctr", "double")), MBSA2 = structure(c(3, 8, 1, 1, NA), label = "People Who Do Not Get Ahead Should Blame Themselves Not the System", na_values = 8, format.spss = "F1.0", display_width = 0L, labels = c(`Strongly agree` = 1,  Agree = 2, Disagree = 3, Stronglydisagree = 4, `No opinion` = 8), class = c("haven_labelled_spss", "haven_labelled", "vctrs_vctr",  "double"))), row.names = c(NA, -5L), class = c("tbl_df", "tbl", "data.frame"), label = "NSDstat generated file")->out

#use the car::Recode command to convert values to 0 to 1
out$market1<-Recode(out$PESE15, "1=1; 3=0.75; 5=0.25; 7=0; 8=0.5; else=NA")
out$market2<-Recode(out$MBSA2, "1=1; 2=0.75; 3=0.25; 4=0; 8=0.5; else=NA")

#Use dplyr to try to calculate the average 
out %>% 
  rowwise() %>% 
  mutate(market_liberalism=mean(
    c_across(market1:market2))) -> out2

#setting value labels to NULL makes it work.
val_labels(out$market1)<-NULL
val_labels(out$market2)<-NULL

out %>% 
  rowwise() %>% 
  mutate(market_liberalism=mean(
    c_across(market1:market2)))

Answer 1

对我来说 car::Recode 给出了一个错误并且不适用于标记为 class 的避难所，但是 dplyr::recode 如果你已经加载了 labelled 库。

library(labelled)
library(dplyr)

out %>%
  mutate(PESE15 = recode(PESE15, `1` = 1,`3` = 0.75, `5`=0.25, `7`=0, `8` = 0.5),
         MBSA2 =  recode(MBSA2, `1`=1, `2`=0.75, `3`=0.25, `4`=0, `8`=0.5), 
         market_liberalism = rowMeans(., na.rm = TRUE))

Error: Problem with `mutate()` input x `labels` must be unique

Error: Problem with `mutate()` input x `labels` must be unique

r

tidyverse

r-haven