[英]How to use dplyr::filter inside purrr::map
我有一个带有多个变量的data.frame,我想获得一个列表,其中每个项目都是使用条件过滤的data.frame的变量。
例如,假设我有类似的东西:
df <- tribble(
~ var1, ~ var2, ~ var3,
4, 0, 0,
2, 3, 1,
0, 4, 0
)
# var1 var2 var3
# <dbl> <dbl> <dbl>
# 1 4 0 0
# 2 2 3 1
# 3 0 4 0
我想获得过滤的变量列表> 0
# $var1
# [1] 4 2
#
# $var2
# [1] 3 4
#
# $var3
# [1] 1
我尝试了几件事,但是现在我能得到的最接近的东西是
df %>% map(~filter(df, .>0))
并且我想包含dplyr::select
以仅过滤变量。 但是我不知道该怎么做。
感谢您的帮助,也很抱歉英语不好,我希望它仍然可以理解。
我们可以遍历names
。 请注意, filter
需要data.frame/tbl_df
。 使用map
,我们遍历各列,它是一个vector
。 因此,为了使filter
的工作, map
通过names
,子集列,应用filter
和unlist
map(names(df), ~ df %>%
select(.x) %>%
filter(. >0) %>%
unlist(., use.names = FALSE))
或与split
split.default(df, names(df)) %>%
map(~ .x %>%
filter(. > 0) %>%
pull(1))
注意:OP的问题是How to use dplyr::filter inside purrr::map
不使用dplyr::filter
其他方法是
map(df, ~ keep(.x, .x != 0))
要么
map(df, setdiff, 0)
要么
map(df, ~ discard(.x, .x == 0))
或使用base R
lapply(df, setdiff, 0)
#$var1
#[1] 4 2
#$var2
#[1] 3 4
#$var3
#[1] 1
使用purrr::map
我们可以做
purrr::map(df, ~.[.!= 0])
#$var1
#[1] 4 2
#$var2
#[1] 3 4
#$var3
#[1] 1
带有lapply
Base R方法可能是
lapply(df, function(x) x[x!= 0])
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.