如何解决如何解决错误:所选内容不能缺少值
我写了一个可以正常工作的代码。但这在功能内不起作用。
我的示例数据如下:
set.seed(34)
children <- data.frame(
ID = 1:100,gender = as.integer(sample(c(1,2),100,replace = TRUE)),height = ifelse(children$gender=="1",sample(120:140),sample(110:130)),weight = ifelse(children$gender=="1",sample(25:35),sample(15:25)),ave_sleep = ifelse(children$gender=="1" & children$height > 130,sample(7:9),ifelse(children$gender=="1" & children$height <= 130,sample(4:6),ifelse(children$gender=="2" & children$height > 120,sample(4:6)))))
childrenNA <- bind_cols(children[1],missForest::prodNA(children[-1],noNA=0.1))
下面的代码可以正常工作。
childrenNA %>%
gather(-gender,key="key",value="val") %>%
mutate(missing=is.na(val)) %>%
mutate(gender=coalesce(gender,0)) %>%
filter(missing==TRUE) %>%
group_by(gender,key,missing) %>%
ggplot() +
stat_count(aes(y=key)) +
facet_wrap(~gender) +
labs(x='no_missing_values',y="variable") +
coord_flip()
但是,我的代码出现错误:选择在函数中不能缺少值。以下是我创建函数的操作。
miss_group <- function(df,facet) {
df %>%
gather(-facet,value="val") %>%
mutate(missing=is.na(val)) %>%
mutate(facet=coalesce(facet,0)) %>%
filter(missing==TRUE) %>%
group_by(facet,missing) %>%
ggplot() +
stat_count(aes(y=key)) +
facet_wrap(~facet) +
labs(x='no_missing_values',y="variable") +
coord_flip()
}
您能帮我解决错误吗?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。