使用 R 中的条件将值转换为 NA
Converting values to NA with conditions in R
我正在尝试根据条件将变量转换为 NA(缺失)
这是我的数据示例。我有 5 个患者 ID,如果 missing
变量中有 '1',outcome1
和 outcome2
将被转换为 NA(缺失)。
ID<-c("a","b","c","d","e")
cond1<-as.factor(sample(x=1:7,size=5,replace=TRUE))
cond2<-as.factor(sample(x=1:7,size=5,replace=TRUE))
cond3<-as.factor(sample(x=1:7,size=5,replace=TRUE))
missing<-as.factor(sample(x=0:1,size=5,replace=TRUE))
outcome1<-sample(x=1:10, size=5,replace=TRUE)
outcome2<-sample(x=1:10, size=5,replace=TRUE)
df<-data.frame(ID,cond1,cond2,cond3,missing,outcome1,outcome2)
df
ID cond1 cond2 cond3 missing outcome1 outcome2
1 a 7 1 7 0 6 5
2 b 5 3 7 0 3 1
3 c 4 5 1 1 3 9
4 d 2 2 3 0 7 3
5 e 1 7 4 1 2 7
我在 naniar
包中找到了 replace_with_na_at
函数。但是,它没有用。
df%>%
replace_with_na_at(.vars=c("outcome1","outcome2"), condition = ~ hn10_14med$missing==1)
Error: Predicate functions must return a single `TRUE` or `FALSE`, not a logical vector of length 0
Call `rlang::last_error()` to see a backtrace
如何将变量转换为带条件的NA?如果有更好的方法,虽然没有使用 replace_with_na_at
功能,你会告诉我。
如果你想替换值,只需使用 ifelse:
df[df$missing==1,c("cond1", "cond2")] <- NA
我正在尝试根据条件将变量转换为 NA(缺失)
这是我的数据示例。我有 5 个患者 ID,如果 missing
变量中有 '1',outcome1
和 outcome2
将被转换为 NA(缺失)。
ID<-c("a","b","c","d","e")
cond1<-as.factor(sample(x=1:7,size=5,replace=TRUE))
cond2<-as.factor(sample(x=1:7,size=5,replace=TRUE))
cond3<-as.factor(sample(x=1:7,size=5,replace=TRUE))
missing<-as.factor(sample(x=0:1,size=5,replace=TRUE))
outcome1<-sample(x=1:10, size=5,replace=TRUE)
outcome2<-sample(x=1:10, size=5,replace=TRUE)
df<-data.frame(ID,cond1,cond2,cond3,missing,outcome1,outcome2)
df
ID cond1 cond2 cond3 missing outcome1 outcome2
1 a 7 1 7 0 6 5
2 b 5 3 7 0 3 1
3 c 4 5 1 1 3 9
4 d 2 2 3 0 7 3
5 e 1 7 4 1 2 7
我在 naniar
包中找到了 replace_with_na_at
函数。但是,它没有用。
df%>%
replace_with_na_at(.vars=c("outcome1","outcome2"), condition = ~ hn10_14med$missing==1)
Error: Predicate functions must return a single `TRUE` or `FALSE`, not a logical vector of length 0
Call `rlang::last_error()` to see a backtrace
如何将变量转换为带条件的NA?如果有更好的方法,虽然没有使用 replace_with_na_at
功能,你会告诉我。
如果你想替换值,只需使用 ifelse:
df[df$missing==1,c("cond1", "cond2")] <- NA