Как удалить все пробелы из строки?
Так " xx yy 11 22 33 "
станет "xxyy112233"
. Как я могу этого достичь?
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"
функции
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