Sostituisci più stringhe in una istruzione gsub() o chartr() in R?

Question

Ho una variabile stringa contenente alfabeto [a-z], spazio [] e apostrofo ['], ad es. x <- "a'b c" Voglio sostituire apostrofo ['] con vuoto [], e sostituire lo spazio [] con il carattere di sottolineatura [_].

x <- gsub("'", "", x) 
x <- gsub(" ", "_", x) 

Funziona in modo assoluto, ma quando ho molte condizioni, il codice diventa brutto. Pertanto, voglio utilizzare chartr(), ma chartr() non può occuparsi di vuoto, ad es.

x <- chartr("' ", "_", x) 
#Error in chartr("' ", "_", "a'b c") : 'old' is longer than 'new' 

C'è un modo per risolvere questo problema? Grazie!

Answer 1

È possibile utilizzare gsubfn

library(gsubfn) 
gsubfn(".", list("'" = "", " " = "_"), x) 
# [1] "ab_c" 

Answer 2

Io sono un fan della sintassi che le %<>% e %>% opperators dal pacchetto magrittr forniscono.

library(magrittr) 

x <- "a'b c" 

x %<>% 
    gsub("'", "", .) %>% 
    gsub(" ", "_", .) 
x 
##[1] "ab_c" 

gusbfn è meraviglioso, ma mi piace il concatenamento %>% permette.

Answer 3

gsub("\\s", "", chartr("' ", " _", x)) # Use whitespace and then remove it 

Answer 4

opterei per un magrittr e/o dplyr soluzione, pure. Tuttavia, preferisco non creare una nuova copia dell'oggetto, specialmente se è in una funzione e può essere restituito a buon mercato.

cioè

return(
    catInTheHat %>% gsub('Thing1', 'Thing2', .) %>% gsub('Red Fish', 'Blue 
    Fish', .) 
) 

... e così via.