使列表元素成为标头

Question

在通过here给出的列表中，有两个元素不符合模式。这意味着，在将@akrun的代码应用到该列表之后，我将面临以下问题：

lst <- list(A = c('aa','bb','B', 'cc', 'dd', 'C', 'ee', 'ff'), D = (c('aa', 'bb')))

$A
 [1] "aa" "bb" "B" "cc" "dd" "C"  "ee" "ff"

$D
[1] "aa" "bb"

在不影响整个列表结构的情况下，我如何使各自元素的"B“和"C”标题：

lst2 <- list(A=c('aa', 'bb'), B=c('cc', 'dd'), C=c('ee', 'ff'), D=c('aa', 'bb'))

$A
[1] "aa" "bb"

$B
[1] "cc" "dd"

$C
[1] "ee" "ff"

$D
[1] "aa" "bb"

我设法想出了一个解决实际问题的方法，如：

> lst <- list('隱公元年', c("", 'aa'), 'bb', 'cc', '莊公十年', 'aa', 'bb', '襄公二十四年', c("", 'dd'), '成公三年', 'ee')

> v1 <- unlist(lst)
> v2 <- lapply(v1, function(x){x[!x ==""]}) %>% compact %>% unlist() #Remove empty string

> i1 <- cumsum(grepl(".公+[元一二三四五六七八九十]+年$", v2)) #Generate index based on Regex of intended headers. 

> zz <- tapply(v2, i1, FUN = function(x) x[-1]) #Apply index to dataset, ignoring first element (which is the header). 
> names(zz) <- tapply(v2, i1, FUN = head, 1) #Apply headers to dataset. 

> zz
$隱公元年
[1] "aa" "bb" "cc"

$莊公十年
[1] "aa" "bb"

$襄公二十四年
[1] "dd"

$成公三年
[1] "ee"

Answer 1

这里有一个选项，我们将stack list设置为2列'data.frame‘('d1')。将其转换为data.table (setDT(d1))，指定具有逻辑条件的i，即检查' values‘中的大写元素，并将这些值赋值(:=)给该位置上的'ind’列。根据与行序列中unique元素的位置一起创建的分组变量，获取累积和，将'ind‘指定为'ind’(ind[1])的第一个元素，保留‘value’不等于'ind‘的行，并将'ind’列中的‘split’指定为'ind‘列的’split‘。

d1 <- stack(lst)
library(data.table)
d2 <- setDT(d1)[grepl("[A-Z]", values), ind := values][, 
  ind := ind[1L] , cumsum(seq_len(nrow(d1)) %in% match(unique(ind), ind))][values != ind]
split(d2$values, d2$ind)
#$A
#[1] "aa" "bb" "cc"

#$D
#[1] "aa" "bb"

#$B
#[1] "aa" "bb" "cc" "dd"

#$C
#[1] "ee" "ff"

或者我们可以试试tidyverse

library(purrr)
library(dplyr)
fsplitLst <- function(lstt){

f1 <- function(x) {
     i1 <- grepl("[A-Z]", x)
     grp <- cumsum(i1)
     split(x[!i1], grp[!i1])
     
   }
 map(lstt, f1) %>%
        flatten %>%
        set_names(., map2(names(lstt), lstt, ~grep("[A-Z]", c(.x, .y), value = TRUE)) %>%
           unlist)
 }
fsplitLst(lst)
#$A
#[1] "aa" "bb" "cc"

#$B
#[1] "aa" "bb" "cc" "dd"

#$C
#[1] "ee" "ff"

#$D
#[1] "aa" "bb"

数据

lst <- list(A = c('aa','bb','cc', 'B', 'aa','bb', 'cc', 'dd', 'C', 'ee', 'ff'),
             D = c('aa', 'bb'))