我有一个包含多个变量的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
的基本 R 方法可能是
lapply(df, function(x) x[x!= 0])