Haven_labelled的字符与srvyr软件包不兼容

Question

那里，您好：

我有一个使用haven软件包从SPSS导入的大型数据集，我正在尝试使用srvyr软件包对数据进行加权；但是看起来两者不能很好地融合在一起。看来我需要以某种方式将haven_labelled转换为其他类。我想我之前已经读过haven_labelled类，但这可能成为将haven与带标签数据组合在一起的真正障碍。谁能提出有效的工作流来处理更大的数据集以解决此问题？

var1<-haven::labelled(rep(c(1,2),100), c("Male"=1, "Female"=2))
var2<-rnorm(100)
df<-data.frame(var1, var2)
df
library(srvyr)
df1<-as_survey_design(df, weights=var2)
str(df)
df1 %>% 
  group_by(var1) %>% 
  summarize(out=survey_mean())```