Recodage continu en variables continues (sans fonction de division) dans R

Question

J'essaye de recoder un ensemble de données qui ne peut pas être facilement fait avec la fonction split ou la fonction ifelse. Comment est-ce que je recoderais les données suivantes?

1 -> 1
2 -> 0
3 -> 0
4 -> 1
5 -> 1
7 -> 0
8 -> 1

Nous vous remercions de votre temps!

Answer 1

Peut-être essayer? Bien que continu à continu implique généralement un certain type de fonction qui pourrait être appliquée.

x <- c(1:5, 7:8) 
x 
# [1] 1 2 3 4 5 7 8 

x[x == 1] <- 1 
x[x == 2] <- 0 
x[x == 3] <- 0 
x[x == 4] <- 1 
x[x == 5] <- 1 
x[x == 7] <- 0 
x[x == 8] <- 1 
x 
# [1] 1 0 0 1 1 0 1 

Answer 2

Vous pouvez essayer:

library(car) 
v <- c(1,2,3,4,5,6,7,8) 
recode(v, "c(1,4,5,8) = 1; else = 0") 

Ou, comme par mentionné par @ zx8754 vous pouvez utiliser ifelse():

ifelse(v %in% c(1,4,5,8), 1, 0) 

Ce qui donne:

#[1] 1 0 0 1 1 0 0 1 

Answer 3

Une autre approche:

x <- +(x %in% c(1,4,5,8)) 
#[1] 1 0 0 1 1 0 1 

La nomenclature +(..) est un procédé pour contraindre un vecteur logique à l'entier de la même manière que le ferait as.integer(..). Pourquoi pas `ifelse()`