1

任务：

  • 我想有条件地将函数应用于R中ifelse命名的所有子列表中的特定元素。list
  • 我想将此输出存储在一个名为list.
  • 此外，如何提取满足条件的子列表中的元素并将其存储在新的命名列表中？

清单是 ggplot2 地块。

数据：

library(furrr)
library(data.table)

my_list <- list(ggplot_1 = ggplot_1, ggplot_2 = ggplot_2, ggplot_3 = ggplot_3)
my_names <- names(my_list)

str(my_list)
> list of 3
>  $ggplot_1 : list of 9
>   $data :'data.frame': 20 obs. of 10 variables:
    # Other sub-list elements...
>
>  $ggplot_2 : list of 9
>   $data :'data.frame': 0 obs. of 10 variables:
    # Other sub-list elements...
>
>  $ggplot_3 : list of 9
>   $data :'data.frame': 10 obs. of 10 variables:
    # Other sub-list elements...

就其本身而言，以下作品：

ifelse(nrow(my_list$ggplot_1$data) != 0, TRUE, FALSE)
> TRUE
ifelse(nrow(my_list$ggplot_2$data) != 0, TRUE, FALSE)
> FALSE

试图：

# I have used mapping functions from the furrr package, 
# but this approach should be similar (although sequential) for purrr::map2/base::Map.

# Start multisession parallel backend
plan(multisession, workers = 2)

# Attempt to map a function conditionally through a list
future_map2(my_list, my_names, function(.x, .y) {
            ifelse(nrow(.x$.y$data) != 0, TRUE, FALSE))
  })
4

2 回答 2

1

您不需要map2，因为名称已经在您想要的列表中map。
ifelse也不是必需的，因为>运算符已经返回一个布尔值。

library(purrr)
library(ggplot2)

my_list %>% map(~nrow(.x$data)!=0)


$ggplot_1
[1] TRUE

$ggplot_2
[1] TRUE

$ggplot_3
[1] FALSE

上面的示例适用于purrr，您只需将其替换map为future_map即可furrr。

于 2021-06-08T16:58:29.510 回答
1

我们可以keep使用元素filter`list

purrr::keep(my_list, ~ nrow(.x$data) > 0)

或base R与Filter

Filter(function(x) nrow(x$data) > 0, my_list)
于 2021-06-08T17:09:19.477 回答