Konwertuj listę do ramki danych z zachowaniem nazw elementów listy

Question

Mam listę, w której nazwy elementów są znacznikami ID i zawierają wektor z wartościami numerycznymi. Są to nierówne (!) Długości.

Chcę go przekształcić w ramkę danych, w której mam identyfikator w jednej kolumnie i wartości liczbowe w innej kolumnie. Np .:

$`1` 
[1] 1 2 
$`2` 
[1] 1 2 3 
$`3` 
[1] 1 

do:

ID Obs 
1 1 
1 2 
2 1 
2 2 
2 3 
3 1 

Answer 1

Oto jeden sposób:

## your list 
ll <- list("1" = 1:2, "2" = 1:3, "3" = 1:2) 
## convert to data.frame 
dl <- data.frame(ID = rep(names(ll), sapply(ll, length)), 
       Obs = unlist(ll)) 

Daje:

> dl 
    ID Obs 
11 1 1 
12 1 2 
21 2 1 
22 2 2 
23 2 3 
31 3 1 
32 3 2 

Pierwszy wiersz w zaproszeniu data.frame() to tylko niektóre kod powtórzyć names() z następujących wymień wymaganą liczbę razy. Drugi wiersz po prostu zapisuje listę, przekształcając ją w wektor.

Answer 2

użytkowania reshape2 i melt który ma metodę melt.list

.list <- list(`1` = 1:2, `2` = 1:3, `3` = 1:2) 
library(reshape2) 
melt(.list) 
## value L1 
## 1  1 1 
## 2  2 1 
## 3  1 2 
## 4  2 2 
## 5  3 2 
## 6  1 3 
## 7  2 3 

Answer 3

Roztwór użyciu funkcji bazowych

List <- list('1'=c(1,2), '2'= c(1,2,3), '3'=1) 
x <- unlist(List) # as suggested by Gavin Simpson 
data.frame(ID=substr(names(x),1,1), Obs=x) 
    ID Obs 
11 1 1 
12 1 2 
21 2 1 
22 2 2 
23 2 3 
3 3 1 

Jeśli chcesz rownames być 1,2,3,4,5,6 try to (za pomocą setNames):

data.frame(ID=substr(names(x),1,1), Obs=setNames(x, NULL)) 
    ID Obs 
1 1 1 
2 1 2 
3 2 1 
4 2 2 
5 2 3 
6 3 1 

To rozwiązanie jest ważna tylko wtedy, gdy wszystkie nazwy mają taką samą długość, inaczej” Zdaję sobie sprawę, że lepiej będzie użyć rozwiązania Gavina. Patrz na przykład:

List2 <- list('week1'=c(1,2), 'week2'= c(1,2,3), 'week3'=1) 
x <- unlist(List2) 
data.frame(ID=substr(names(x),1,nchar(names(x)[1])-1), Obs=setNames(x, NULL)) 

    ID Obs 
1 week1 1 
2 week1 2 
3 week2 1 
4 week2 2 
5 week2 3 
6 week3 1 

Answer 4

Dobrym i nadal brakuje alternatywy do już opublikowanych rozwiązań jest stack -function:

df <- stack(ll)[2:1] 

co daje:

> df 
    ind values 
1 1  1 
2 1  2 
3 2  1 
4 2  2 
5 2  3 
6 3  1 
7 3  2 

---

Korzystanie setNames jak również, możesz uzyskać dokładny format:

df <- setNames(stack(ll)[2:1], c('ID','Obs')) 

co daje:

> df 
    ID Obs 
1 1 1 
2 1 2 
3 2 1 
4 2 2 
5 2 3 
6 3 1 
7 3 2 

---

Używane dane:

ll <- list("1" = 1:2, "2" = 1:3, "3" = 1:2)