bearbeiten Spalte unter der Bedingung

Question

Ich habe eine Tabelle:

id <- c(1,1,2,2,2,2,2,3,3,4,4,5,5,5) 
    dist <- c(0,1,1,0,2,15,0,4,4,0,5,5,16,2) 
    data <- data.frame(id, dist) 

Ich mag würde die Spalte id bearbeiten, wenn dist auf einen bestimmten Wert überlegen ist (sagen wir mal 10). Ich bin auf der Suche +1 hinzuzufügen, wenn data$dist >10

Die endgültige Ausgabe sei:

data$id_new <- c(1,1,2,2,2,3,3,4,4,5,5,6,7,7) 

Ist es möglich, etwas mit einer if Schleife zu tun? Ich habe versucht, etwas mit einer Schleife, aber ich bin immer noch nicht erfolgreich.

Answer 1

Vielleicht cumsum mit:

data$new_id <- data$id + cumsum(data$dist > 10) 

Erläuterung:

cumsum(data$dist > 10) wird die kumulative Summe der Indizes in data$dist zurück, die als 10. größer sind, können Sie sehen, wie diese auseinander, indem der Ausdruck funktioniert in R und sehen, wie jedes Stück funktioniert.

Answer 2

Wir duplicated mit >

with(data, cumsum(dist > 10| !duplicated(id))) 
#[1] 1 1 2 2 2 3 3 4 4 5 5 6 7 7