r语言运用replace函数替换数据

比如这样一个数据，我要基于这个数据新建一列（名称为status），其中1替换为married，0替换为unmarried
例如  status
1       unmarried
2       married
3       unmarried
4       married
这样的一列

1. library(stringr)
   
2. newdata<-str_replace_all(olddata,"married","1")
   
3. newdata2<-str_replace_all(newdata,"unmarried","0")

复制代码

1. newdata<-within(olddata,{
   
2.         married<-NA
   
3.         married[status=="married"]<-1
   
4.         married[status=="unmarried"]<-0
   
5.         })

复制代码

library(tidyverse)
data%>%mutate(status=fac_recode(status,"1"="married",
                                                               "0"="unmarried")%>%
              mutate(status=as.numeric(as.characteric(status))->data