Comment faire muter une colonne à l'aide de dplyr avec une valeur lorsque l'une des colonnes contient un 1 sinon 0

Ce n'est pas une méthode de déploiement, mais cela fonctionne aussi:

events$new_col <- 0
events$new_col[rowSums(events[, grep("In Hospital", colnames(events))]) >= 1] <- 1

Avant de développer ma solution, j'ai exécuté le code suivant pour dissocier vos données.

events2 <- events %>% mutate(Col = apply(select(., ends_with("(In Hospital)")), 1, max))
events2$Col 
# [1] 1 1 1 1 1

Solution 1: rowSums avec des colonnes sélectionnées

L'idée de cette solution est pour utiliser rowSums pour ajouter tous les nombres des colonnes sélectionnées, déterminer si la somme est supérieure à 0, puis convertir le vecteur logique en vecteur entier (avec 1 ou 0).

Il existe de nombreuses façons de sélectionner les colonnes. Nous pouvons sélectionner en fonction des numéros de colonne.

events2 <- events %>% mutate(Col = as.integer(rowSums(select(., contains("(In Hospital)"))) > 0))
events2$Col 
# [1] 1 1 1 1 1

Nous pouvons utiliser ends_with.

events2 <- events %>% mutate(Col = as.integer(rowSums(select(., matches("\\(In Hospital\\)$"))) > 0))
events2$Col 
# [1] 1 1 1 1 1

Nous pouvons utiliser des matches . L'expression régulière \\ (In Hospital \\) $ indique la chaîne à la fin.

events2 <- events %>% mutate(Col = as.integer(rowSums(select(., ends_with("(In Hospital)"))) > 0))
events2$Col 
# [1] 1 1 1 1 1

On peut utiliser contains code>, mais notez que la chaîne cible n'a pas besoin d'être à la fin des noms de colonne.

events2 <- events %>% mutate(Col = as.integer(rowSums(select(., 6:27)) > 0))
events2$Col 
# [1] 1 1 1 1 1

Solution 2: appliquer avec max

Puisque les nombres des colonnes cibles sont tous 1 ou 0 , nous pouvons utiliser apply avec max pour obtenir le maximum, qui sera 1 s'il y a un 1 , ou 0 . Toutes les façons d'utiliser la fonction select comme indiqué ci-dessus fonctionneront également ici. Ci-dessous, j'ai présenté une façon de le faire.

library(dplyr)

events <- events %>% ungroup()

Une solution de la base R utilisant apply()

cols <- grep("in hospital", colnames(events), ignore.case = T)
apply(events[, cols], 1, function(x) ifelse(any(x == 1), 1, 0))

# [1] 1 1 1 1 1