有效地将不同长度的嵌套列表转换为数据。框架(带底座R)

这是一个 base R 选项,其中我们循环遍历“nested\u list”和 if 有 any 元素具有 length 即0,然后将其分配给 NULL 或返回 data.frame

res <- do.call(rbind, lapply(nested_list, function(x) 
      if(any(lengths(x) == 0)) NULL else data.frame(x, stringsAsFactors = FALSE)))
res
#         date value1 value2
#1 2018-01-10      1      2
#2 2018-01-09      3      4
#3 2018-01-06      5      6

在输入数据集中,“日期”值为 character ,最好存储为 Date 班

res$date <- as.Date(res$date)
str(res)
# 'data.frame':   3 obs. of  3 variables:
# $ date  : Date, format: "2018-01-10" "2018-01-09" "2018-01-06"
# $ value1: num  1 3 5
# $ value2: num  2 4 6

另一种解决方案:

> data.table::rbindlist(nested_list[sapply(nested_list, function(x) min(lengths(x))) > 0])
         date value1 value2
1: 2018-01-10      1      2
2: 2018-01-09      3      4
3: 2018-01-06      5      6

我知道你的标题是“base R”,但你也要求一种更有效的方法。因此,另一种选择是 tidyverse 解决方案:

nested_list %>%
    map(unlist) %>%
    rbind_all() %>%
    filter(complete.cases(.)) %>%
    mutate_at(vars(contains("value")), as.numeric);
## A tibble: 3 x 3
#  date       value1 value2
#  <chr>       <dbl>  <dbl>
#1 2018-01-10     1.     2.
#2 2018-01-09     3.     4.
#3 2018-01-09     5.     6.

或者(感谢@arun):

nested_list %>% 
    transpose %>% 
    map_df(~ .x %>% replace(., lengths(.)==0, NA) %>% unlist) %>% 
    filter(!is.na(value1))