r - 根据列表对象中的条件过滤 R 中的列表

Question

这是一个微不足道的问题，但我很困惑。如何根据长度过滤数据帧列表？该列表是嵌套的——这意味着存在不同长度的数据帧列表列表。这是一个例子。我想过滤或子集列表以仅包含那些长度为 n 的对象，比如 3。

这是一个例子和我目前的方法。

library(tidyverse)

# list of list with arbitrary lengths 

star.wars_ls <- list(starwars[1:5], 
                     list(starwars[1:8], starwars[4:6]), 
                     starwars[1:2], 
                     list(starwars[1:7], starwars[2:6]), 
                     starwars[1:3])


# I want to filter the list by dataframes that are 3 variables long (i.e. length(df == 3).

# Here is my attempt, I'm stuck at how to obtain 
# the number of varibles in each dataframe and then filter by it. 

map(star.wars_ls, function(x){
    map(x, function(x){ ## Incorrectly returns 20 for all 
        length(y)
    })

})

Answer 1

我们可以做到

  map(star.wars_ls, ~ if(is.data.frame(.x)) .x[length(.x) == 3] else map(.x, ~ .x[length(.x) == 3]))