R: Aggregat-Zeichenfolgen

Habe ich einen Daten-frame ModelDF mit Spalten mit numerischen als auch die Charakter-Werte wie:

Quantity        Type        Mode        Company
   1            Shoe        hello        Nike
   1            Shoe        hello        Nike
   2            Jeans       hello        Levis
   3            Shoe        hello        Nike
   1            Jeans       hello        Levis
   1            Shoe        hello        Adidas
   2            Jeans       hello        Spykar
   1            Shoe        ahola        Nike
   1            Jeans       ahola        Levis

Habe ich zu aggregieren, die es in dieser form

Quantity        Type        Mode        Company
   5            Shoe        hello        Nike
   3            jeans       hello        Levis
   1            Shoe        hello        adidas
   2            jeans       hello        Spykar
   1            Shoe        ahola        Nike
   1            jeans       ahola        Levis

d.h. ich habe zu aggregieren und Summe-Menge, wenn alle anderen Spalten gleich sind.

Ich habe es versucht mit aggregate aber es funktioniert nicht auf Charakter-Werte es gibt mir falsche Ergebnisse.

Was sind meine Optionen?
Dank

InformationsquelleAutor Looper | 2016-05-12
  1. 0

    Wollen Sie nicht 'Aggregat-Saiten', die Sie wollen, aggregate Numerik "durch" string-Variablen. Hier:

    R> xx = data.frame(a=sample(letters[1:3], 10, TRUE),
                   b=sample(LETTERS[1:3], 10, TRUE),
                   c=runif(10))
R> xx
a b         c
1  b C 0.7094221
2  c B 0.2718095
3  c B 0.8844701
4  b C 0.9270141
5  b C 0.8243021
6  a A 0.3649902
7  a B 0.9763228
8  a A 0.8904676
9  b C 0.8640352
10 a A 0.7931683
R> aggregate(c ~ a + b, data=xx, FUN=sum)
a b         c
1 a A 2.0486261
2 a B 0.9763228
3 c B 1.1562796
4 b C 3.3247736
    InformationsquelleAutor asb
  2. 0
    aggregate(Quantity ~ Type + Mode + Company, df, sum)
#   Type  Mode Company Quantity
#1  Shoe hello  Adidas        1
#2 Jeans ahola   Levis        1
#3 Jeans hello   Levis        3
#4  Shoe ahola    Nike        1
#5  Shoe hello    Nike        5
#6 Jeans hello  Spykar        2

    Können Sie auch versuchen, die data.table option:

    setDT(df)[, .(Sum.Quantity = sum(Quantity)), by = list(Type, Mode, Company)]

#    Type  Mode Company Sum.Quantity
#1:  Shoe hello    Nike            5
#2: Jeans hello   Levis            3
#3:  Shoe hello  Adidas            1
#4: Jeans hello  Spykar            2
#5:  Shoe ahola    Nike            1
#6: Jeans ahola   Levis            1

    Ähnlich ist es mit dplyr

    df %>% 
  group_by(Type, Mode, Company) %>% 
               summarise(sum(Quantity))

    DATEN

    dput(df)
structure(list(Quantity = c(1L, 1L, 2L, 3L, 1L, 1L, 2L, 1L, 1L
), Type = structure(c(2L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c("Jeans", 
"Shoe"), class = "factor"), Mode = structure(c(2L, 2L, 2L, 2L, 
2L, 2L, 2L, 1L, 1L), .Label = c("ahola", "hello"), class = "factor"), 
    Company = structure(c(3L, 3L, 2L, 3L, 2L, 1L, 4L, 3L, 2L), .Label = c("Adidas", 
    "Levis", "Nike", "Spykar"), class = "factor")), .Names = c("Quantity", 
"Type", "Mode", "Company"), class = "data.frame", row.names = c(NA, 
-9L))
    • Ich habe dies ausprobiert, aber es gibt mir Fehler wie "Summe ist nicht sinnvoll für Faktoren"
    • Sie haben wahrscheinlich Menge codiert als factor variable. Überprüfen Sie class(data$Quantity) und wenn es ein Faktor ist, versuchen as.integer und wenn es gibt Warnungen, dann werden Sie wollen, vorsichtig zu sein mit denen.
    • Ja..ich verstehe es jetzt!! Ich habe nicht verdeckte die Faktoren, die zu numerischen und Charakter. Vielen Dank für die Hilfe.
    InformationsquelleAutor Sotos
Schreibe einen Kommentar