Wert zuweisen zu Gruppe basiert auf Bedingung in Spalte

Habe ich einen Daten-frame, der wie folgt aussieht:

> df = data.frame(group = c(1,1,1,2,2,2,3,3,3), 
                 date = c(1,2,3,4,5,6,7,8,9),
                 value = c(3,4,3,4,5,6,6,4,9))
> df
  group date value
1     1    1     3
2     1    2     4
3     1    3     3
4     2    4     4
5     2    5     5
6     2    6     6
7     3    7     6
8     3    8     4
9     3    9     9

Möchte ich eine neue Spalte erstellen, die das Datum enthält Wert pro Gruppe zugeordnet ist, den Wert "4" aus der Spalte Wert.

Folgende Daten-frame zeigt, was ich hoffe zu erreichen.

  group date value newValue
1     1    1     3        2
2     1    2     4        2
3     1    3     3        2
4     2    4     4        4
5     2    5     5        4
6     2    6     6        4
7     3    7     6        8
8     3    8     4        8
9     3    9     9        8

Wie wir sehen, kann die Gruppe 1 hat die newValue "2" da, ist das Datum mit dem Wert "4". Ähnlich, Gruppe zwei hat newValue 4 und Gruppe drei hat newValue 8.

Ich nehme an, es gibt eine einfache Möglichkeit, dies zu tun mit ave() oder eine Reihe von dplyr/data.table Funktionen, aber ich habe schon erfolglos mit meinen versuchen.

Du hast Recht! Ich halt es fest

InformationsquelleAutor Boudewijn Aasman | 2015-08-25

  1. 14

    Hier ist eine schnelle data.table eine

    library(data.table)
setDT(df)[, newValue := date[value == 4L], by = group]
df
#    group date value newValue
# 1:     1    1     3        2
# 2:     1    2     4        2
# 3:     1    3     3        2
# 4:     2    4     4        4
# 5:     2    5     5        4
# 6:     2    6     6        4
# 7:     3    7     6        8
# 8:     3    8     4        8
# 9:     3    9     9        8

    Hier ist eine ähnliche dplyr version 

    library(dplyr)
df %>%
  group_by(group) %>%
  mutate(newValue = date[value == 4L])

    Oder eine mögliche Basis R-Lösung mit merge nach dem filtern der Daten (brauchen etwas umbenennen danach)

    merge(df, df[df$value == 4, c("group", "date")], by = "group")
    Genau das, was ich brauchte. Danke!!!
    Arenburg, bitte helfen Sie mir mit ein wenig zwicken hier, stackoverflow.com/questions/47716479/...

    InformationsquelleAutor David Arenburg

  2. 1

    Hier ist ein Basis-R-option

     df$newValue = rep(df$date[which(df$value == 4)], table(df$group))

    Andere alternative mit lapply

    do.call(rbind, lapply(split(df, df$group), 
  function(x){x$newValue = rep(x$date[which(x$value == 4)], 
                    each = length(x$group)); x}))

#    group date value newValue
#1.1     1    1     3        2
#1.2     1    2     4        2
#1.3     1    3     3        2
#2.4     2    4     4        4
#2.5     2    5     5        4
#2.6     2    6     6        4
#3.7     3    7     6        8
#3.8     3    8     4        8
#3.9     3    9     9        8

    InformationsquelleAutor Veerendra Gadekar

  3. 1

    Einer mehr base R Pfad:

    df$newValue <- ave(`names<-`(df$value==4,df$date), df$group, FUN=function(x) as.numeric(names(x)[x]))
df
   group date value newValue
1      1    1     3        2
2      1    2     4        2
3      1    3     3        2
4      2    4     4        4
5      2    5     5        4
6      2    6     6        4
7      3    7     6        8
8      3    8     4        8
9      3    9     9        8
10     3   11     7        8

    Habe ich eine test-variable Länge-Gruppen. Ich wies die date Spalte als Namen für den logischen index des value gleich 4. Dann ermitteln Sie den Wert von group.

    Daten

    df = data.frame(group = c(1,1,1,2,2,2,3,3,3,3), 
                 date = c(1,2,3,4,5,6,7,8,9,11),
                 value = c(3,4,3,4,5,6,6,4,9,7))

    InformationsquelleAutor Pierre Lafortune

Schreibe einen Kommentar