R - Wie bekomme ich die Matrix von multidimensionalen Array

Question

Angenommen, ich habe 5D-Array arr. Um 2D-Matrix mit festen 3., 4. und 5. Indizes zu bekommen, mache ich etwas wie: matr = arr[,,3,2,3]. Angenommen, ich habe eine Liste von Indizes idx = c(3,2,3). Gibt es eine Möglichkeit, das gleiche Ergebnis mit idx zu erhalten? So etwas wie matr = arr[,,idx]? Ich habe versucht, es zu tun wie

idx = c(,, 3, 2, 3); 
matr = arr[idx]; 

Aber es ist offensichtlich falsch.

UPD in einem allgemeinen Fall Array kann mehr als 5 dimensional sein. Also muss ich das für Idx jeder Größe tun.

Answer 1

können Sie versuchen:

do.call("[",c(list(arr,TRUE,TRUE),as.list(idx))) 

Ein Beispiel auf einige Daten:

set.seed(123) 
arraydims<-c(5, 3, 6, 3, 4) 
arr<-array(runif(prod(arraydims)),arraydims) 
idx<-c(2,3,2) 
identical(arr[,,2,3,2],do.call("[",c(list(arr,TRUE,TRUE),as.list(idx)))) 
#[1] TRUE 

Sie auch die von R verwendet column-major order ausnutzen können:

array(arr[sum(c(1,cumprod(dim(arr)))[3:length(dim(arr))]*(idx-1))+ 
      seq_len(prod(dim(arr)[1:2]))],dim(arr)[1:2]) 

Answer 2

Ich habe diese ein, aber ich bin auch sicher, dass es sollte etwas mehr ausreichend sein ...

A <- array(1:72, dim=c(2,2,3,2,2)) 
res <- eval(parse(text=paste0("A[,,",paste0(idx,collapse=",")),"]"))) 

Grundsätzlich Ihre Indizierung als String vorzubereiten. Möglichkeit, dort eine Funktion zu erstellen.