Umbenennen von Spalten in mehrere dataframes, R

Ich versuche zu Spalten umbenennen von mehreren data.frames.

Um ein Beispiel zu geben, sagen wir, ich habe eine Liste von data.frames dfA, dfB und dfC. Ich schrieb eine Funktion changeNames Namen entsprechend und dann lapply wie folgt:

dfs <- list(dfA, dfB, dfC)
ChangeNames <- function(x) {
    names(x) <- c("A", "B", "C" )  
}
lapply(dfs, ChangeNames)

Aber dies funktioniert nicht wie erwartet. Es scheint, dass ich nicht die Zuordnung der neuen Namen für die data.frame, sondern nur die Erstellung der neuen Namen. Was mache ich hier falsch?

Vielen Dank im Voraus!

  • Nach der Zeile names(x) <- in Ihrer Funktion, fügen Sie return(x) oder einfach x. Andere, die Sie zurückgeben, nur names(x).
  • Danke für deine Antwort Arun! Wenn ich ad-return(x), bekomme ich eine outprint dfA, dfB und dfC, mit dem neuen Namen. Aber wenn ich die Namen(dfA), Namen(dfB) und Namen(dfC) danach, Sie immer noch die alten Spaltennamen. Meine Daten-frames sind auch sehr große, also ich bin nicht daran interessiert, Sie anzusehen. Nur verändert es die Spalte Namen.
  • lapply ändert sich nicht der Eingang. Es gibt keinen "change by reference" geschieht hier. Es wird alles getan, auf eine Kopie. Sie werden zuordnen müssen, um das Ergebnis zurück. tun: dfs <- lapply(dfs, ChangeNames)
  • Ok, die dfs ist jetzt eine große Liste mit dfA, dfB und dfC, mit der neuen columnnames. Ich bin immer noch interessiert an einer Zusammenarbeit mit der dfA, dfb eine dfC individuell, und individuell Sie haben immer noch die alten columnnames? Wie ordne ich das Ergebnis zurück auf die einzelnen dataframes?
  • gut, Sie weisen Sie zurück. dfA <- dfs[[1]]... ?
InformationsquelleAutor user2706593 | 2013-08-22
  1. 13

    Gibt es hier zwei Dinge:

    • 1) sollten Sie wieder den Wert, den Sie möchten, aus Ihrer Funktion. Sonst, wird der Letzte Wert zurückgegeben. In deinem Fall ist names(x). Stattdessen sollten Sie hinzufügen, wie die Letzte Zeile, return(x) oder einfach x. Also, Ihre Funktion würde wie folgt Aussehen:

      ChangeNames <- function(x) {
    names(x) <- c("A", "B", "C" )
    return(x)
}

    • 2) lapply nicht ändern Sie Ihre Eingabe, Objekte by reference. Es arbeitet auf einer Kopie. So haben Sie zum zuweisen der Ergebnisse zurück. Oder eine andere alternative ist die Verwendung for-loops statt lapply:

      # option 1
dfs <- lapply(dfs, ChangeNames)

# option 2
for (i in seq_along(dfs)) {
    names(dfs[[i]]) <- c("A", "B", "C")
}

    Sogar mit der for-loop haben, werden Sie noch eine Kopie, da names(.) <- . tut). Sie können dies überprüfen, mithilfe tracemem.

    df <- data.frame(x=1:5, y=6:10, z=11:15)
tracemem(df)
# [1] "<0x7f98ec24a480>"
names(df) <- c("A", "B", "C")
tracemem(df)
# [1] "<0x7f98e7f9e318>"

    Wenn Sie ändern möchten, indem Sie die Referenz, die Sie verwenden können data.table Paket ist setnames Funktion:

    df <- data.frame(x=1:5, y=6:10, z=11:15)
require(data.table)
tracemem(df)
# [1] "<0x7f98ec76d7b0>"
setnames(df, c("A", "B", "C"))
tracemem(df)
# [1] "<0x7f98ec76d7b0>"

    Sehen Sie, dass der Speicher df zugeordnet ist, nicht geändert hat. Die Namen wurden geändert-by-reference.

    • Auf Basis dieser Funktion ändern Sie die Spalte von Namen, die über mehrere Daten-frames, die in einer Liste wie dieser war unglaublich hilfreich. Ich verallgemeinerte Funktion, um eine zweite und Dritte argument, und verwendet, dass als Eingang für einen grep() ändern Sie den Namen von bestimmten Spalten in alle meine Daten-frames.
    InformationsquelleAutor Arun
  2. 10

    Wenn die dataframes waren nicht in der Liste sondern nur in der globalen Umwelt, Sie könnten finden Sie mit einem Vektor von string-Namen.

    dfs <- c("dfA", "dfB", "dfC")

for(df in dfs) {
  df.tmp <- get(df)
  names(df.tmp) <- c("A", "B", "C" ) 
  assign(df, df.tmp)
}

    BEARBEITEN

    Zur Vereinfachung der obige code, den Sie verwenden konnten

    for(df in dfs)
  assign(df, setNames(get(df),  c("A", "B", "C")))

    oder mit data.table das keine zugewiesen wird.

    for(df in c("dfA", "dfB"))
  data.table::setnames(get(df),  c("G", "H"))
    InformationsquelleAutor JWilliman
  3. -1

    Hatte ich das problem das importieren eines öffentlichen Datensatzes und umbenennen müssen jeder dataframe und benennen Sie jede Spalte in jeder dataframe zu trimmen Leerzeichen, Kleinbuchstaben, und ersetzen Sie die internen Bereiche mit Perioden.

    Kombination der oben genannten Methoden habe ich:

    for (eachdf in dfs)
  df.tmp <- get(eachdf) 
    for (eachcol in 1:length(df.tmp))
      colnames(df.tmp)[eachcol] <-
      str_trim(str_to_lower(str_replace_all(colnames(df.tmp)[eachcol], " ", ".")))
      }
  assign(eachdf, df.tmp) 
}
    InformationsquelleAutor TDog
Schreibe einen Kommentar