R中的复杂调查分析

如何解决R中的复杂调查分析

我有一个关于复杂调查分析的问题。我想使用 IPUMS ACS 数据按职业进行种族分类。问题是我使用来自 ACS 的种族和西班牙裔起源变量重新创建了我自己的种族变量。简而言之，新种族变量中的类别并不相互排斥。我知道按职业获取互斥类别百分比的代码：

 data %>%
  as_survey_design(strata = STRATA,weights = PERWT)%>%
  group_by(OCCSOC,race)%>%
  summarise(pct = survey_mean())

我应该如何调整代码以反映这些非排他性类别的职业百分比？这里，对于每个职业，分母不是每个种族按职业分类的总和，而是每个职业的总人数。

提前感谢您的任何建议！