R Come modificare un sottoinsieme di righe

Question

Ho difficoltà a modificare un sottoinsieme di righe in dplyr. Sto usando il comando di concatenamento: %>% dire:

data <- data %>% 
    filter(ColA == "ABC") %>% 
    mutate(ColB = "XXXX") 

Questo funziona bene, ma i problemi è che voglio essere in grado di selezionare l'intera tabella originale e vedere la mutano riservato il sottoinsieme di dati che ho avuto specificato. Il mio problema è che quando visualizzo i dati dopo questo, vedo solo il sottoinsieme di data e le sue informazioni aggiornate ColB.

Vorrei anche sapere come farlo utilizzando data.table.

Grazie.

Answer 1

Utilizzando data.table, faremmo:

setDT(data)[colA == "ABC", ColB := "XXXX"] 

ed i valori vengono modificati sul posto, a differenza if-else, which'd copiare l'intera colonna di sostituire solo le righe in cui la condizione soddisfa.

Chiamiamo questo sub-assign per riferimento. Puoi leggere ulteriori informazioni al riguardo nel numero new HTML vignettes.

Answer 2

Quando si utilizza filter() in realtà si rimuovono le righe che non corrispondono alla condizione specificata, in modo che non vengano visualizzate nel set di dati finale.

Il numero ColB esiste già nella cornice dati? Se è così,

data %>% 
    mutate(ColB = ifelse(ColA == "ABC", "XXXX", ColB)) 

cambierà ColB-"XXXX" quando ColA == "ABC" e lasciarlo come è altrimenti. Se ColB non esiste già, allora si dovrà specificare che cosa fare per le righe in cui ColA != "ABC", ad esempio:

data %>% 
    mutate(ColB = ifelse(ColA == "ABC", "XXXX", NA)) 

Answer 3

Un'altra opzione è quella di effettuare una successiva combinazione di unione e anti-join con gli stessi dati. Ciò richiede una chiave primaria:

data <- data %>% 
    filter(ColA == "ABC") %>% 
    mutate(ColB = "XXXX") %>% 
    rbind_list(., anti_join(data, ., by = ...)) 

Esempio:

mtcars_n <- mtcars %>% add_rownames 
mtcars_n %>% 
    filter(cyl > 6) %>% 
    mutate(mpg = 1) %>% 
    rbind_list(., anti_join(mtcars_n, ., by = "rowname")) 

Questo è molto più lento di quanto probabilmente qualsiasi altro approccio, ma utile per ottenere risultati rapidi, estendendo il vostro tubo esistente.