Comment faire pour supprimer tous les espaces d'une chaîne de caractères?

En général, nous voulons une solution qui est vectorisée, voici donc un meilleur exemple de test:

whitespace <- " \t\n\r\v\f" # space, tab, newline, 
                            # carriage return, vertical tab, form feed
x <- c(
  " x y ",           # spaces before, after and in between
  " \u2190 \u2192 ", # contains unicode chars
  paste0(            # varied whitespace     
    whitespace, 
    "x", 
    whitespace, 
    "y", 
    whitespace, 
    collapse = ""
  ),   
  NA                 # missing
)
## [1] " x y "                           
## [2] " ← → "                           
## [3] " \t\n\r\v\fx \t\n\r\v\fy \t\n\r\v\f"
## [4] NA

---

La base de R approche: gsub

gsub remplace toutes les occurrences d'une chaîne (fixed = TRUE) ou expression régulière (fixed = FALSE, la valeur par défaut) avec une autre chaîne. Pour supprimer tous les espaces, utilisation:

gsub(" ", "", x, fixed = TRUE)
## [1] "xy"                            "←→"             
## [3] "\t\n\r\v\fx\t\n\r\v\fy\t\n\r\v\f" NA 

Comme DWin a noté, dans ce cas fixed = TRUE n'est pas nécessaire, mais offre des performances légèrement meilleures depuis correspondance entre une chaîne de caractères fixe est plus rapide que correspondant à une expression régulière.

Si vous souhaitez supprimer tous les types d'espaces, utilisation:

gsub("[[:space:]]", "", x) # note the double square brackets
## [1] "xy" "←→" "xy" NA 

gsub("\\s", "", x)         # same; note the double backslash

library(regex)
gsub(space(), "", x)       # same

"[:space:]" est un R-spécifique de l'expression régulière correspondant de groupe tous les caractères d'espace. \s est indépendant de la langue expression régulière qui fait la même chose.

---

La stringr approche: str_replace_all et str_trim

stringr offre plus lisible wrappers autour de la base de fonctions R (même si, comme de Décembre 2014, la version de développement est une branche construit sur le haut de stringi, mentionné ci-dessous). Les équivalents des commandes ci-dessus, à l'aide de [str_replace_all][3], sont:

library(stringr)
str_replace_all(x, fixed(" "), "")
str_replace_all(x, space(), "")

stringr a aussi un str_trim fonction qui supprime seulement les attaque et de fuite des espaces.

str_trim(x) 
## [1] "x y"          "← →"          "x \t\n\r\v\fy" NA    
str_trim(x, "left")    
## [1] "x y "                   "← → "    
## [3] "x \t\n\r\v\fy \t\n\r\v\f" NA     
str_trim(x, "right")    
## [1] " x y"                   " ← →"    
## [3] " \t\n\r\v\fx \t\n\r\v\fy" NA      

---

La stringi approche: stri_replace_all_charclass et stri_trim

stringi est construit sur la plate-forme indépendante ICU bibliothèque, et dispose d'un vaste ensemble de fonctions de manipulation de chaîne. Le équivalents de de la ci-dessus sont:

library(stringi)
stri_replace_all_fixed(x, " ", "")
stri_replace_all_charclass(x, "\\p{WHITE_SPACE}", "")

Ici "\\p{WHITE_SPACE}" est une syntaxe alternative pour l'ensemble des points de code Unicode considérés comme des espaces, l'équivalent de "[[:space:]]", "\\s" et space(). Pour les plus complexes des expressions régulières de remplacement, il est également stri_replace_all_regex.

stringi a également fonctions de découpage.

stri_trim(x)
stri_trim_both(x)    # same
stri_trim(x, "left")
stri_trim_left(x)    # same
stri_trim(x, "right")  
stri_trim_right(x)   # same

Veuillez noter que les soultions écrit ci-dessus supprime uniquement l'espace. Si vous souhaitez également supprimer onglet ou une nouvelle utilisation de la marge de stri_replace_all_charclass de stringi paquet.

library(stringi)
stri_replace_all_charclass("   ala \t  ma \n kota  ", "\\p{WHITE_SPACE}", "")
## [1] "alamakota"

x = "xx yy 11 22 33"

gsub(" ", "", x)

> [1] "xxyy112233"

De cette façon, vous pouvez supprimer tous les espaces de toutes les variables de caractères dans votre bloc de données. Si vous préférez choisir seulement quelques-uns des variables, l'utilisation mutateou mutate_at.

library(dplyr)
library(stringr)

remove_all_ws<- function(string){
    return(gsub(" ", "", str_squish(string)))
}

df<-df %>%  mutate_if(is.character, remove_all_ws)