Инвертировать список векторов символов в R

Question

Что такое эффективный способ инвертирования списка векторов символов, как показано ниже?

Входные

lov <- list(v1=c("a", "b"), v2=c("a", "c"), v3=c("a")) 

Ожидаемое

list(a=c("v1", "v2", "v3"), b=c("v1"), c=c("v2")) 

Подобно Revert list structure, но с участием векторов:

Answer 1

Мы можем либо преобразующие list к data.frame (с использованием stack или melt от library(reshape2)) и затем split столбец «ind» с помощью «значений» в 'd1'.

d1 <- stack(lov) 
split(as.character(d1$ind), d1$values) 

---

Или, если выше метод является медленным, мы можем повторить (rep) names из «LOV» по length каждого list элемента (lengths дает vector выход length каждого элемента) и split его unlist В «любви».

split(rep(names(lov), lengths(lov)), unlist(lov))