Как удалить все пробелы из строки?


Так " xx yy 11 22 33 " станет "xxyy112233". Как я могу этого достичь?

7 102

7 ответов:

в общем, мы хотим, чтобы решение было векторизовано, поэтому вот лучший тестовый пример:

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

базовый подход R:gsub

gsub заменяет все вхождения строки (fixed = TRUE) или регулярным выражением (fixed = FALSE по умолчанию) с другой строкой. Чтобы удалить все пробелы, используйте:

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

как отметил Двин, в данном случае fixed = TRUE не является необходимым, но обеспечивает немного лучшую производительность с момента сопоставления фиксированной строка быстрее, чем соответствие регулярному выражению.

если вы хотите удалить все типы пробел, использовать:

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:]" является R-специфичной группой регулярных выражений, соответствующей всем пробелам. \s является независимым от языка регулярных выражений, что делает то же самое.


The stringr подход: str_replace_all и str_trim

stringr обеспечивает более удобочитаемые обертки вокруг основания R функции (хотя по состоянию на декабрь 2014 года версия разработки имеет ветку, построенную поверх stringi, указано ниже). Эквиваленты вышеуказанных команд, используя [str_replace_all][3], являются:

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

stringr также str_trim функция, которая удаляет только начальные и конечные пробелы.

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      

The stringi подход: stri_replace_all_charclass и stri_trim

stringi построен на платформе независимая ICU библиотека, и имеет обширный набор функций манипуляции строки. Элемент эквивалентах из вышеперечисленных являются:

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

здесь "\p{WHITE_SPACE}" - это альтернативный синтаксис для набора кодовых точек Unicode считаются пробелы, что эквивалентно "[[:space:]]","\s" и space(). Для более сложных замен регулярных выражений, есть также stri_replace_all_regex.

stringi также функции Трим.

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

Я только что узнал о пакете "stringr", чтобы удалить пробел из начала и конца строки с помощью str_trim (, side="both"), но он также имеет функцию замены, так что:

a <- " xx yy 11 22 33 " 
str_replace_all(string=a, pattern=" ", repl="")

[1] "xxyy112233"

обратите внимание, что soultions, написанные выше, удаляет только пространство. Если вы хотите также удалить вкладку или новую строку, используйте stri_replace_all_charclass С stringi пакета.

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

использовать [[:blank:]] чтобы соответствовать любым горизонтальным символам white_space.

gsub("[[:blank:]]", "", " xx yy 11 22  33 ")
# [1] "xxyy112233"

x = "xx yy 11 22 33"

gsub (" " ,"", x)

[1] "xxyy112233"

функции str_squish() пакета stringr из tidyverse делает волшебство!

library(dplyr)
library(stringr)

df <- data.frame(a = c("  aZe  aze s", "wxc  s     aze   "), 
                 b = c("  12    12 ", "34e e4  "), 
                 stringsAsFactors = FALSE)
df <- df %>%
  rowwise() %>%
  mutate_all(funs(str_squish(.))) %>%
  ungroup()
df

# A tibble: 2 x 2
  a         b     
  <chr>     <chr> 
1 aZe aze s 12 12 
2 wxc s aze 34e e4

попробуйте это:

  1. удалить последовательные пробелы заполнения
  2. удалить заполнить бланк.

            2.         1.
            |          |
            V          V
    

    показать подинстр (stritrim ("xx yy 11 22 33 "), " ", "",.)