Gleiche Funktion über mehrere data frames in R

Ich bin neu in R, und dies ist eine sehr einfache Frage. Ich habe eine Menge ähnliche Dinge, was ich haben will, aber nicht genau. Im Grunde habe ich mehrere Daten-frames und ich will einfach ausführen derselben Funktion über alle von Ihnen. Eine for-Schleife arbeiten könnte, aber ich bin nicht sicher, wie es sich richtig zu call-Daten-frames. Es scheint auch die meisten lieber den lapply Ansatz mit R. ich habe schon mit der get-Funktion auch ohne Erfolg. Ich entschuldige mich, wenn dies ist eine duplizierte Frage. Jede Hilfe wäre sehr geschätzt werden!

Hier mein über Vereinfachtes Beispiel:
2 data frames: df1, df2

df1
start stop ID
0     10   x
10    20   y
20    30   z

df2
start stop ID
0     10   a
10    20   b
20    30   c

was ich will, ist eine 4. Spalte mit dem Durchschnitt von start-und Stopp für beide dfs -

df1
start stop ID  Avg
0     10   x    5 
10    20   y    15
20    30   z    25

Ich dies tun kann ein Daten-frame zu einem Zeitpunkt mit:

df1$Avg <- rowMeans(subset(df1, select = c(start, stop)), na.rm = TRUE)

aber ich will das es läuft, auf alle dataframes.

InformationsquelleAutor user3272284 | 2014-02-25
  1. 11

    Machen Sie eine Liste von Daten-frames, dann verwenden Sie lapply auf die Funktion anwenden, um Sie alle.

    df.list <- list(df1,df2,...)
res <- lapply(df.list, function(x) rowMeans(subset(x, select = c(start, stop)), na.rm = TRUE))
# to keep the original data.frame also
res <- lapply(df.list, function(x) cbind(x,"rowmean"=rowMeans(subset(x, select = c(start, stop)), na.rm = TRUE)))

    Den lapply wird dann füttern Sie in jedem Daten-frame als x nacheinander.

    InformationsquelleAutor JeremyS
  2. 6

    Legen Sie Sie in eine Liste, und führen Sie dann rowMeans über die Liste.

    df1 <- data.frame(x = rep(3, 5), y = seq(1, 5, 1), ID = letters[1:5])
df2 <- data.frame(x = rep(5, 5), y = seq(2, 6, 1), ID = letters[6:10])

lapply(list(df1, df2), function(w) { w$Avg <- rowMeans(w[1:2]); w })

 [[1]]
   x y ID Avg
 1 3 1  a 2.0
 2 3 2  b 2.5
 3 3 3  c 3.0
 4 3 4  d 3.5
 5 3 5  e 4.0

 [[2]]
   x y ID Avg
 1 5 2  f 3.5
 2 5 3  g 4.0
 3 5 4  h 4.5
 4 5 5  i 5.0
 5 5 6  j 5.5
    • wie könnte eine ähnliche lapply(), function(){}) code-re-schreiben die original dateframes mit den Funktionen in der lapply-Funktion?
    InformationsquelleAutor Rich Scriven
  3. 2

    In Fall, dass Sie wollen, dass alle Ausgänge in die gleiche Datei, dies kann helfen.

     df1 <- data.frame(x = rep(3, 5), y = seq(1, 5, 1), ID = letters[1:5])
 df2 <- data.frame(x = rep(5, 5), y = seq(2, 6, 1), ID = letters[6:10])

 z=list(df1,df2)
 df=NULL
 for (i in z) {
 i$Avg=(i$x+i$y)/2
 df<-rbind(df,i)
 print (df)
 }

 > df
   x y ID Avg
1  3 1  a 2.0
2  3 2  b 2.5
3  3 3  c 3.0
4  3 4  d 3.5
5  3 5  e 4.0
6  5 2  f 3.5
7  5 3  g 4.0
8  5 4  h 4.5
9  5 5  i 5.0
10 5 6  j 5.5
    InformationsquelleAutor user3117837
Schreibe einen Kommentar