Vergleichen Sie die Nummer mit mehreren Vergleichsoperatoren und Werte

Question

Ich muss sehen, ob eine Liste von Werten in Bereiche von Werten fällt und dann einen bestimmten Wert zuweisen. Ich möchte einen Weg finden, dies zu tun, ohne verschachtelte ifelse() Anweisungen (gerade gelernt ifelse kann nicht mehr als 51-mal nisten und sieht so schrecklich.).

Da dies ein künstliches Beispiel ist, frage ich mich, ob es eine verallgemeinerbare Möglichkeit gibt, dies zu tun (z. B. Schleife? * Anwenden)? Ich denke etwas mit paste(eval()) zu tun, kann es aber nicht zur Arbeit bringen. Danke im Voraus.

set.seed(2222) 
comparison_table = data.frame(
    lower_comp = c('>=', '>=', '>='), 
    upper_comp = c('<', '<', '<'), 
    lower_value = c(3, 33, 100), 
    upper_value = c(31, 40, 120), 
    new_value = c(1, 2, 3) 
) 

df = data.frame(
    value = runif(n = 25, min = 1, max = 130) 
) 

df$new_value = with(df, 
    ifelse(value >= 3 & value < 33, 1, 
    ifelse(value >= 33 & value < 100, 2, 
    ifelse(value >= 100 & value < 120, 3, NA)))) 

value   new_value 
48.427905  NA 
24.461992  1 
107.576807  3 
76.461703  NA 
124.694209  NA 
14.132063  1 
98.638509  NA 
32.436195  NA 
88.470441  NA 
9.095131   1 
49.548878  NA 
85.647608  NA 
75.357280  NA 
120.696858  NA 
113.347924  3 
51.364939  NA 
126.896975  NA 
128.282762  NA 
115.333414  3 
75.022578  NA 
128.170932  NA 
2.200451   NA 
24.085131  1 
99.672971  NA 
24.945700  1 

Answer 1

Sie können cut() benutzen, um Ihre Wertvektor aufzuspalten:

df$new_value <- cut(df$value, breaks= c(3,33,100,120),labels=FALSE, right = FALSE) 

Diese drei Intervalle definiert (etwas außerhalb zu NA ausfällt):

[3,33) 
[33,100) 
[100,120) 

Verwenden right = FALSE machen die linke Seite inklusive: Standard ist (x, y] und wir wollen [x, y).