重新组合R中的变量

我正在使用NLS数据，并希望在几个独立变量上对婚姻状况进行逻辑回归。 婚姻状况的编码方式如下： 1084 1从未结婚，同居 2441 2未结婚，未同居 2744 3已婚，配偶在场 1884已婚，配偶缺席 18.5分居、同居 66.6分居，不同居 2027离婚、同居 3618离婚，不同居 4.9寡居、同居 12 10丧偶，不同居

我只想把已婚和未婚分成两组，其中第1组和第2组的总和为已婚=0，其余的已婚=1。我的数据集称为nlsy。 我知道这是一个基本的问题，但我会感谢任何帮助。 谢谢大家!

尝试类似的方法（替换实际变量名称，因为您没有提供最小可重复性示例）：

---

nlsy$never\u married使用此选项。你所做的没有错，但这是一个漫长的方法

install.packages("dplyr")  
library(dplyr)  

a <- cbind.data.frame(status=c("Never married, cohabiting","Never married, not cohabiting","Married, spouse present",
         "Married, spouse absent","Separated, cohabiting","Separated, not cohabiting",
         "Divorced, cohabiting","Divorced, not cohabiting","Widowed, cohabiting",
         "Widowed, not cohabiting"), value=c(1084 ,2441,2744,188,18,66,202,361,4,12))

a=a %>%
  mutate(married_status=as.numeric(status %in% 
                        c("Married, spouse present",
         "Married, spouse absent","Separated, cohabiting","Separated, not cohabiting",
         "Divorced, cohabiting","Divorced, not cohabiting","Widowed, cohabiting",
         "Widowed, not cohabiting"))) %>%
select(-status)  

install.packages（“dplyr”）
图书馆（dplyr）
a%
变异（状态=数字）（状态%in%
c（“已婚，配偶在场”，
“已婚，配偶不在”、“分居，同居”、“分居，不同居”，
“离婚，同居”，“离婚，不同居”，“丧偶，同居”，
“丧偶，不同居”））%>%
选择（-status）

如果有任何疑问，请告诉我。
当您提出问题时，请提供一个[可复制的示例]。另外，请用一个例子说明您的预期输出是什么。我最后做了以下工作，虽然不漂亮，但似乎有效：nlsy$married[nlsy$married==1]
install.packages("dplyr")  
library(dplyr)  

a <- cbind.data.frame(status=c("Never married, cohabiting","Never married, not cohabiting","Married, spouse present",
         "Married, spouse absent","Separated, cohabiting","Separated, not cohabiting",
         "Divorced, cohabiting","Divorced, not cohabiting","Widowed, cohabiting",
         "Widowed, not cohabiting"), value=c(1084 ,2441,2744,188,18,66,202,361,4,12))

a=a %>%
  mutate(married_status=as.numeric(status %in% 
                        c("Married, spouse present",
         "Married, spouse absent","Separated, cohabiting","Separated, not cohabiting",
         "Divorced, cohabiting","Divorced, not cohabiting","Widowed, cohabiting",
         "Widowed, not cohabiting"))) %>%
select(-status)