我已经在R中创建了以下数据框:
生成的数据帧如下所示。
我希望你可以通过ID值对数据框进行子集操作,并将所有只包含NA值的列替换为999。结果应该如下所示:
我已经尝试了这段代码。
df<-data.frame("ID"=c("A", "A", "A", "B", "B", "B"),"II"=c(NA, NA,
NA,1,2,3),"JJ"=c(1,2,3, NA, NA, NA), 'KK'=c(1,2,NA, NA, 5,6))
生成的数据帧如下所示。
ID II JJ KK
A NA 1 1
A NA 2 2
A NA 3 NA
B 1 NA NA
B 2 NA 5
B 3 NA 6
我希望你可以通过ID值对数据框进行子集操作,并将所有只包含NA值的列替换为999。结果应该如下所示:
ID II JJ KK
A 999 1 1
A 999 2 2
A 999 3 NA
B 1 999 NA
B 2 999 5
B 3 999 6
我已经尝试了这段代码。
library(dplyr)
df%>%
group_by(ID)%>%
select(II, JJ,KK)%>%
mutate_if(df[, colSums(is.na(df)) == nrow(df)]<999)
我遇到了以下错误
Adding missing grouping variables: `ID`
Error in tbl_if_vars(.tbl, .p, .env, ..., .include_group_vars =
.include_group_vars) :
length(.p) == length(tibble_vars) is not TRUE
我希望有人能看一下。我无法弄清楚。不需要基于dplyr的解决方案。