Benennen Sie eine benannte Spalte in R

Ich möchte aktualisieren eine Spalte mit einem dataframe, auf Sie verweisen mit Ihrem ursprünglichen Namen, ist das möglich? Zum Beispiel sagen, ich hatte die Tabelle 'Daten'

a b c  
1 2 2  
3 2 3  
4 1 2

und ich wollte zu aktualisieren Sie den Namen der Spalte b 'd'. Ich weiß, ich könnte 

colnames(data)[2] <- 'd'

aber ich kann die änderung vornehmen, indem ein direkter Bezug auf b, d.h. so etwas wie 

colnames(data)['b'] <- 'd'

so, dass wenn in der Spalte Reihenfolge der dataframe änderungen die richtige Spalte name wird immer noch aktualisiert werden.

Vielen Dank im Voraus

InformationsquelleAutor der Frage user1165199 | 2012-05-18

  1. 5

    Oktober 2014 dieses kann nun einfach durchgeführt werden, in der dplyr Paket:

    rename(data, d = b)

    InformationsquelleAutor der Antwort Sam Firke

  2. 25

    Gibt es eine Funktion setnames integriert-Paket - Daten.table für genau das.

    setnames(DT, "b", "d")

    Ändert er die Namen, die durch Verweis ohne kopieren. Eine andere Methode, mit names(data)<- oder names(data)[i]<- oder ähnliches kopieren Sie die gesamte Objekt, in der Regel mehrmals. Auch wenn alles, was Sie tun, ändert den Namen einer Spalte aus.

    DT werden muss, geben Sie data.table für setnames zu arbeiten, obwohl. Damit würdest du wechseln zu müssen data.table oder konvertieren mit as.data.table zu verwenden.

    Hier ist der Auszug aus ?setnames. Die Absicht ist, dass Sie laufen example(setnames) an der Eingabeaufforderung und dann die Kommentare beziehen sich auf die Kopien, die Sie sehen, wird berichtet tracemem.

    DF = data.frame(a=1:2,b=3:4)       # base data.frame to demo copies
tracemem(DF)
colnames(DF)[1] <- "A"             # 4 copies of entire object
names(DF)[1] <- "A"                # 3 copies of entire object
names(DF) <- c("A", "b")           # 2 copies of entire object
`names<-`(DF,c("A","b"))           # 1 copy of entire object
x=`names<-`(DF,c("A","b"))         # still 1 copy (so not print method)

# What if DF is large, say 10GB in RAM. Copy 10GB just to change a column name?

DT = data.table(a=1:2,b=3:4,c=5:6)
tracemem(DT)
setnames(DT,"b","B")               # by name; no match() needed. No copy.
setnames(DT,3,"C")                 # by position. No copy.
setnames(DT,2:3,c("D","E"))        # multiple. No copy.
setnames(DT,c("a","E"),c("A","F")) # multiple by name. No copy.
setnames(DT,c("X","Y","Z"))        # replace all. No copy.

    InformationsquelleAutor der Antwort Matt Dowle

  3. 11

    Scheint dies wie ein hack, aber das erste, was mir in den Sinn kam, war der Einsatz von grepl() mit einem ausreichend detailliert genug, Suchbegriff, um nur die Spalte, die Sie möchten. Ich bin sicher, es gibt bessere Möglichkeiten:

    dat <- data.frame(a = 1:3, b = 1:3, c = 1:3)
colnames(dat)[grepl("b", colnames(dat))] <- "foo"
dat
#------
  a foo c
1 1   1 1
2 2   2 2
3 3   3 3

    Als Joran Punkte unten, dass ich zu kompliziert...keine Notwendigkeit für eine regex überhaupt. Das spart ein paar Zeichen auf der Eingabe zu.

    colnames(dat)[colnames(dat) == "foo"] <- "bar"
#------
  a bar c
1 1   1 1
2 2   2 2
3 3   3 3

    InformationsquelleAutor der Antwort Chase

  4. 3

    Ja, aber es ist schwieriger (soweit ich weiß) als numerischer Indizierung. Ich bin gehen, um eine schmutzige Funktion, die dies tun, und wenn Sie wollen, um zu sehen, wie es zu tun, nur reißen die Funktion auseinander Zeile:

    rename <- function(df, column, new){
    x <- names(df)                               #Did this to avoid typing twice
    if (is.numeric(column)) column <- x[column]  #Take numeric input by indexing
    names(df)[x %in% column] <- new              #What you're interested in
    return(df)
}

#try it out
rename(mtcars, 'mpg', 'NEW')
rename(mtcars, 1, 'NEW')

    InformationsquelleAutor der Antwort Tyler Rinker

  5. 1

    Stimme ich mit @Chase - die grepl Lösung ist nicht die glücklichste. Ich würde sagen: gehen Sie mit einfachen ==. Ist hier, warum:

    d <- data.frame(matrix(rnorm(100), 10))
colnames(d) <- replicate(10, paste(sample(letters[1:5], size = 5, replace=TRUE, prob=c(.1, .6, .1, .1, .1)), collapse = ""))

    Nun versuchen Sie grepl("b", colnames(d)). Entweder geht fixed = TRUE oder noch besser einfach colnames(d) == "b" wie @joran vorgeschlagen. Regex-matching immer langsamer als ==also für einfache Aufgaben wie das Sie verwenden möchten, können einfach ==.

    InformationsquelleAutor der Antwort aL3xa

Schreibe einen Kommentar