根据元素名称组合列表元素

Question

How to combine this list of vectors by elements names ?

L1 <- list(F01=c(1,2,3,4),F02=c(10,20,30),F01=c(5,6,7,8,9),F02=c(40,50))

So to get :

results <- list(F01=c(1,2,3,4,5,6,7,8),F02=c(10,20,30,40,50))

I tried to apply the following solution merge lists by elements names but I can't figure out how to adapt this to my situation.

Answer 1

sapply(unique(names(L1)), function(x) unname(unlist(L1[names(L1)==x])), simplify=FALSE)
$F01
[1] 1 2 3 4 5 6 7 8 9

$F02
[1] 10 20 30 40 50

Answer 2

You can achieve the same result using map function from purrr

map(unique(names(L1)), ~ flatten_dbl(L1[names(L1) == .x])) %>%
  set_names(unique(names(L1)))

The first line transforms the data by merging elements with matching names, while the last line renames new list accordingly.