rimozione di spazi finali con gsub in R

Question

Qualcuno ha un trucco per rimuovere gli spazi finali sulle variabili con gsub?

Di seguito è riportato un esempio dei miei dati. Come puoi vedere, ho sia spazi finali che spazi incorporati nella variabile.

county <- c("mississippi ","mississippi canyon","missoula ", 
      "mitchell ","mobile ", "mobile bay") 

posso usare la seguente logica per rimuovere tutti gli spazi, ma quello che voglio veramente è quello di muovere solo gli spazi alla fine.

county2 <- gsub(" ","",county) 

Qualsiasi assistenza sarebbe molto apprezzata.

Answer 1

si potrebbe usare un'espressione regolare:

county <- c("mississippi ","mississippi canyon","missoula ", 
     "mitchell ","mobile ", "mobile bay") 
county2 <- gsub(" $","", county, perl=T) 

$ stand per la fine della sequenza di testo, quindi, gli spazi solo finali sono abbinati. perl=T abilita le espressioni regolari per il modello di corrispondenza. Per ulteriori informazioni sulle espressioni regolari, vedere ?regex.

Answer 2

Leggi ?regex per avere un'idea di come funzionano le espressioni regolari.

gsub("[[:space:]]*$","",county) 

[:space:] è una classe di caratteri pre-definito che corrisponde caratteri di spazio nel vostro locale. * dice di ripetere lo zero di corrispondenza o più volte e $ dice di corrispondere alla fine della stringa.

Answer 3

Se non è necessario utilizzare il comando gsub, la funzione str_trim è utile per questo.

library(stringr) 
    county <- c("mississippi ","mississippi canyon","missoula ", 
     "mitchell ","mobile ", "mobile bay") 
    str_trim(county) 

Answer 4

Above solution can not be generalized. Here is an example: 


    a<-" keep business moving" 
    str_trim(a) #Does remove trailing space in a single line string 

However str_trim() from 'stringr' package works only for a vector of words and a single line but does not work for multiple lines based on my testing as consistent with source code reference. 

    gsub("[[:space:]]*$","",a) #Does not remove trailing space in my example 
    gsub(" $","", a, perl=T) #Does not remove trailing space in my example 

Below code works for both term vectors and or multi-line character vectors which was provided by the reference[1] below. 

    gsub("^ *|(?<=) | *$", "", a, perl=T) 


#Reference::