Wie effizient iterieren für die Summe über data.frame Objekte im Grid?

Question

Ich habe numerische data.frame Objekt in der Liste und möchte sie parallel hinzufügen. Ich beobachte jedoch, dass das Hinzufügen eines gepaarten data.frame-Objekts im Gitter wiederholt wurde und ich nur über das obere/untere Gitterdreieck iterieren und über diese parallel summieren kann. Ich habe eine einfache R-Funktion geschrieben, um das zu tun, aber mein Ausgabebit ist weniger effizient, weil die wiederholte Summe passiert. Ich wette, es muss einen intuitiveren/effizienteren Weg geben, diesen Job zu machen. Hat jemand eine bessere Lösung, um dies einfacher/effizienter zu machen, wenn data.frame-Objekte im Raster sind? Irgendein Vorschlag, um meine Funktion für diese Aufgabe besser zu formulieren? Dank

simulierte Daten

fo <- data.frame(start=seq(1, by=4, len=6), stop=seq(3, by=4, len=6)) 
ba <- data.frame(start=seq(5, by=2, len=7), stop=seq(7, by=2, len=7)) 
bleh <- data.frame(start=seq(1, by=5, len=5), stop=seq(3, by=5, len=5)) 

mylist <- list(fo, ba, bleh) 

meiner eigene Funktion

add_pairDF <- function(set, idx=1L) { 
    quer <- set[[idx]] 
    .quer <- mapply('+', quer, quer) 
    supp <- lapply(set[-idx], function(ele_) { 
    ans <- mapply('+', quer, ele_) 
    }) 
    res <- c(list(.quer), supp) 
    return(res) 
} 

Anfangsausgang (Wiederholung vorhanden ist):

ans_1 <- add_pairDF(set=mylist, idx=1L) 
ans_2 <- add_pairDF(set=mylist, idx=2L) 
ans_3 <- add_pairDF(set=mylist, idx=3L) 

gewünschter Ausgang:

in meinem ersten Ausgang, Funk Die Summe ergibt sich aus dem gepaarten data.frame-Objekt, aber ich denke, ich muss meine Funktion nicht dreimal mit einem anderen Index für meine Liste aufrufen.

Ich möchte wiederholte Summe über gepaarten data.frame entfernen, ziele auf das untere/obere Dreieck (einschließlich Diagonale), wenn alle gepaarten data.frame-Objekte im Rasterquadrat platziert wurden. Wie kann ich diese Art von Wiederholung vermeiden? Was ist die effiziente Iteration für ein data.frame-Objekt im Grid? Kann jemand mögliche Ideen vorschlagen, um mein Problem zu lösen?

Answer 1

Hier ist ein Weg, unten.

add_df <- function(df1, df2) { 
    mapply("+", df1, df2) 
} 

# Get all pairs of indices 
ndf <- length(mylist) 
idx <- expand.grid(1:ndf, 1:ndf) 
idx <- idx[idx[,1] <= idx[,2],] 

Map(function(i, j) add_df(mylist[[i]], mylist[[j]]), idx[,1], idx[,2]) 

Ich bin nicht sicher, was die Absicht ist, wenn Datenrahmen mit unterschiedlicher Anzahl von Zeilen hinzugefügt werden. Aber lassen Sie uns sagen, dass Sie die Antwort wollen nur die Zeilen hinzufügen, die beide Datenrahmen gemeinsam haben, können Sie ersetzen add_df mit:

add_df <- function(df1, df2) { 
    nr <- min(nrow(df1), nrow(df2)) 
    df1[1:nr,] + df2[1:nr,] 
} 

EDIT: Ich mapply mit Map ersetzt das Ergebnis um sicherzustellen, dass Sie eine Liste in der letzter Fall.