Spalte mit mehreren Werten in Daten.Rahmen

Ich würde gerne die Daten.frame in R mit einigen Spalten, die mehrere Werte (gleichen Anzahl von Variablen, die für alle Zeilen). Zum Beispiel, hier ist ein data-frame mit zwei Spalten (Autos und Preis), beachten Sie, dass die Spalte Preis hat drei Werte für jede Zeile.

cars price

F    1000,2000,3000

GM   2000, 500, 1000

Die zweite Frage:

Nun möchte ich dieselbe Funktion für jeden Wert in der Spalte Preis, wie kann ich das tun? Sagen wir, ich möchte erstellen Sie eine weitere Spalte mit verdoppelten Werte der Spalte Preis.

InformationsquelleAutor Sergey | 2013-04-03
  1. 7

    data.frames sind einfach lists, und als solche, Sie kann auch lists lists. 

    cars <- c("FORD", "GM")
price  <- list( c(1000, 2000, 3000),  c(2000, 500, 1000))
myDF <- data.frame(cars=cars, price=cbind(price))

myDF
#    cars            price
#  1 FORD 1000, 2000, 3000
#  2   GM  2000, 500, 1000

    dann ausführen eine Funktion auf alle Werte von price in einer bestimmten Zeile: 

    # execute on ALL PRICES at once
mean(unlist(myDF$price))
#  [1] 1583.333

# execute on each set of PRICES per row: 
lapply(myDF$price, mean)
#  [[1]]
#  [1] 2000 
#    
#  [[2]]
#  [1] 1166.667

    , Dass gesagt wird, ich würde empfehlen, gegen diesen Ansatz.

    Wird es cummbersome und es gibt in der Regel bessere Möglichkeiten, um zu erreichen das gleiche Ziel.

    Eine Alternative Methode ist einfach zu benutzen, die Preisliste, das dataset und den Namen des elemens nach den Autos Spalte: 

    names(price) <- cars
price
#  $FORD
#  [1] 1000 2000 3000
#    
#  $GM
#  [1] 2000  500 1000

    In diesem Fall, Ihre *ply Aussagen sind, die Namen der Autos, die bereits zugewiesen und es wäre etwas weniger eingeben: 

    lapply(price, mean)
#  $FORD
#  [1] 2000
#  
#  $GM
#  [1] 1166.667

    Al Alternative Methode ist die Verwendung eine lange data.frame oder data.table:

    # transforming to long: 
myDF <- data.frame("cars"=rep(cars, times=lapply(price, length)), "price"=unlist(price, use.names=FALSE))
myDF

    Dann können Sie das argument von Funktionen ausführen, die über alle Preise, die in einer Gruppe: 

    by(data=myDF$price, INDICIES=myDF$cars, FUN=mean)

# or using with:
with(myDF, by(price, cars, mean))

    Hier ist der gleiche Ansatz, aber mit data.table (die by integriert)

    library(data.table)
myDT <- data.table(myDF, key="cars")
myDT[, mean(price), by=cars]

#     cars       V1
#  1: FORD 1501.250
#  2:   GM 1166.667
    • kein problem. Finden Sie die aktualisierte als Antwort auf Alternative Ansätze.
    • Vielen Dank Ricardo. Ich vereinfachte das ursprüngliche problem, vielleicht können Sie vorschlagen, eine bessere Lösung, wenn ich mehr details. In meinem Fall zusätzlich zu Auto-Namen F und GM ich habe auch andere Attribute (eine pro Spalte). Zum Beispiel, "F, date_arrived, Gewicht, Preis (- 3-Werte wie zuvor)". Aber ich will auch noch gelten-Funktion Spalte Preis. Meinst du ein long-Daten.Rahmen oder Daten.- Tabelle sind immer noch die besten Optionen? Danke.
    InformationsquelleAutor Ricardo Saporta
Schreibe einen Kommentar