Extract Spalte aus der Liste, die aus Listen

Question

a gemacht wird, ist eine Liste mit Listen:

a<-list(list(matrix(c(0,0,0,1,2,1,2,2,2,1,1,1),3), 
      matrix(c(0,0,1,2,2,2,2,1),2)), 
     list(matrix(c(0,0,1,2,2,1,1,1,2,2,2,2),3))) 

> a 
[[1]] 
[[1]][[1]] 
    [,1] [,2] [,3] [,4] 
[1,] 0 1 2 1 
[2,] 0 2 2 1 
[3,] 0 1 2 1 

[[1]][[2]] 
    [,1] [,2] [,3] [,4] 
[1,] 0 1 2 2 
[2,] 0 2 2 1 


[[2]] 
[[2]][[1]] 
    [,1] [,2] [,3] [,4] 
[1,] 0 2 1 2 
[2,] 0 2 1 2 
[3,] 1 1 2 2 

ich die Faust Spalte aller Objekte extrahieren möchten. Wir wissen, ob die Liste aus einer Matrix besteht, wir können die "Map" -Funktion verwenden, um dieses Problem zu lösen, aber jetzt besteht die Liste aus Listen, wir können "Map" nicht nur verwenden, um dieses Problem zu lösen, wie kann ich das tun das leicht?

I-Code verwenden folgende dieses Problem zu lösen:

sapply(1:length(a), function(x) {Map(function(y) y[,1],a[[x]])}) 

Es gelöst werden kann, aber ich frage mich, ob es ein bequemer Weg, um dieses Problem zu lösen, wie ich später mehr Werke tun müssen, basierend auf diese Frage. Vielen Dank!

Answer 1

Ich denke, die folgenden Werke:

sapply(unlist(a, recursive = FALSE), function(x) x[ , 1]) 

# [[1]] 
# [1] 0 0 0 
# 
# [[2]] 
# [1] 0 0 
# 
# [[3]] 
# [1] 0 0 1 

Das wird nicht funktionieren, wenn die Verschachtelung auf a über eine Ebene erstreckt.

Alle gebührende Anerkennung für eine Lösung @rawr, die uns die ursprüngliche list Struktur unter Verwendung von rapply finden ?rapply für mehr behalten können:

rapply(a, function(x) x[,1], how = "list") 
# [[1]] 
# [[1]][[1]] 
# [1] 0 0 0 
# 
# [[1]][[2]] 
# [1] 0 0 
# 
# 
# [[2]] 
# [[2]][[1]] 
# [1] 0 0 1 

Answer 2

Ebenso denke ich, eine andere Lösung könnte eine verschachtelte lapply Funktion sein . Hier kann es allerdings sehr knifflig werden.

Der Code ist:

lapply(a, function(x) lapply(x, 
         function(x) x[,1])) 

Wir sind im Wesentlichen zwei Ebenen auf der Liste hinunter (von lapply zweimal Aufruf) dann die erste Spalte Extrahieren (unter Verwendung von x [1]).

Das Ergebnis ist:

[[1]] 
[[1]][[1]] 
[1] 0 0 0 

[[1]][[2]] 
[1] 0 0 

[[2]] 
[[2]][[1]] 
[1] 0 0 1 

Hinweis Dies erfordert auch, dass wir unsere Liste kennen nur zwei Ebenen erstreckt.