Die geteilten Daten.frame-by-value

wie kann ich Spalten die folgenden Daten.Rahmen

df <- data.frame(var1 = c("a", 1, 2, 3, "a", 1, 2, 3, 4, 5, 6, "a", 1, 2), var2 = 1:14)

in Listen /Gruppen

a 1
1 2
2 3
3 4

a 5
1 6
2 7
3 8
4 9
5 10
6 11

a 12
1 13
2 14

Also im Grunde, Wert "a" in Spalte 1 ist der tag /die Kennung, die ich teilen möchten, auf dem Daten-frame auf. Ich weiß, über die split-Funktion, aber das bedeutet, dass ich eine weitere Spalte hinzufügen, und da, wie man an meinem Beispiel, die Größe der Gruppen kann variieren, ich weiß nicht, wie Sie automatisch erstellt werden wie eine dummy-Spalte, die zu meinen Anforderungen passen.

Irgendwelche Ideen dafür?

Cheers,

Sven

InformationsquelleAutor user969113 | 2012-07-09
  1. 11

    Könnte man herausfinden, welche Werte der Vektor-Indizierung gleich "a", dann erstellen Sie eine Gruppierung variable, die auf dieser Grundlage zu verwenden und dann splitten.

    df[,1] == "a"
# [1]  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE
#[13] FALSE FALSE
cumsum(df[,1] == "a")
# [1] 1 1 1 1 2 2 2 2 2 2 2 3 3 3
split(df, cumsum(df[,1] == "a"))
#$`1`
#  var1 var2
#1    a    1
#2    1    2
#3    2    3
#4    3    4
#
#$`2`
#   var1 var2
#5     a    5
#6     1    6
#7     2    7
#8     3    8
#9     4    9
#10    5   10
#11    6   11
#
#$`3`
#   var1 var2
#12    a   12
#13    1   13
#14    2   14
    • Das sieht verdächtig nach etwas, was ich vorschlagen würde. Bist du mein Klon?
    • Wow!!! das ist eine gute Lösung. hilft viel! vielen Dank 🙂
    • Tun Klone erhalten einen Anteil an Ihrem guten Ruf? Wenn ja, dann ja.
    • Ich gab schon 10, was willst du mehr? Gosh, Klone sind Bedürftige... 😉
    InformationsquelleAutor Dason
  2. 0

    Du könntest eine Schleife erstellen, die eine Schleife durch die gesamte erste Spalte des data Frames und speichert die Positionen der nicht-numerische Zeichen in einem Vektor. Man muß also so etwas wie:

    data <- df$var1 #this gives you a vector of the values you'll sort through

positions <- c()

for (i in seq(1:length(data))){
    if (is.numeric(data[i]) == TRUE) {
        #nothing
    }
    else positions <- append(positions, i) #saves the positions of the non-numeric characters
}

    Mit jenen Positionen, die Sie sollten nicht haben ein problem auf der Aufteilung des Daten-frame aus. Es ist nur eine Frage der Verwendung von Sequenzen zwischen den Werten in der position Vektor.

    • vielen Dank für dein code-snippet als gut. Das problem bei dieser Lösung ist, dass die anderen Werte, die nicht "ein" kann auch text sein und nicht immer zahlen. Vielleicht ist mein Beispiel war nicht gut genug entwickelt. Aber auch gut zu wissen, dass Lösung. danke! 🙂
    • Wenn das Ziel ist, finden den Positionen, die Sie nicht brauchen, eine Schleife. Sie konnte etwas tun, wie which(df$var1=="a"). Versuchen Sie zu vermeiden, Schleifen Ihre erste Wahl, wenn Sie mit R.
    • Ich bin verwendet, um die Programmierung in python, so dass ist der Grund, warum ich eher auf loops. Ich finde eine solide Kenntnisse der Verwendung von Schleifen eliminiert die Notwendigkeit zu merken Tonnen von built-in-Funktionen, aber wie haben Sie bekommen Sie ein Gefühl für all diese Funktionen? Es gibt wahrscheinlich eine Menge von Fällen, wo ich persönlich könnte mit diesen Funktionen, aber nicht über Sie wissen.
    • Ganz oft Schleifen sind die am wenigsten effiziente Möglichkeit, etwas zu erreichen, in R (um Größenordnungen). Das bekommt man motiviert zu suchen (vektorisiert) Funktionen.
    InformationsquelleAutor MikeZ
Schreibe einen Kommentar