所以" xx yy 11 22 33 "将变成"xxyy112233"。我该怎么做呢？
9个回答
315
总体来说，我们希望有一个矢量化的解决方案，因此这里有一个更好的测试例子：
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
正如DWin所指出的那样，在这种情况下，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是一种语言无关的正则表达式，具有相同的功能。
stringr方法：str_replace_all和str_trim
stringr提供了更易于理解的基本R函数包装器（尽管截至2014年12月，开发版本有一个建立在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
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
- Aniko
8
32
我刚学习了 "stringr" 包中的 str_trim() 函数，可以移除字符串开头和结尾的空格，但它还有一个替换函数，因此：
a <- " xx yy 11 22 33 "
str_replace_all(string=a, pattern=" ", repl="")
[1] "xxyy112233"
- JollyRoger
1
4stringr包无法很好地处理所有编码。stringi包是更好的解决方案，有关更多信息，请访问https://github.com/Rexamine/stringi - bartektartanus
22
x = "xx yy 11 22 33"
gsub(" ", "", x)
> [1] "xxyy112233"
- ZWL
20
使用[[:blank:]]匹配任何类型的水平空白字符。
gsub("[[:blank:]]", "", " xx yy 11 22 33 ")
# [1] "xxyy112233"
- Avinash Raj
10
来自 tidyverse 的包 stringr 中的函数 str_squish() 可以实现神奇的效果！
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
- damianooldoni
3
4请勿提供代码链接，将其添加到答案正文中，并在此处说明，以使您的答案具有更长期的价值。 - R Balasubramanian
感谢@RBalasubramanian提醒我这个指南。我将来会遵循它。 - damianooldoni
4我不认为这回答了问题。
str_squish 函数并不能移除所有的空格，它只是修整字符串，并将多个空格替换为一个。 - Nettle10
请注意，上面提供的解决方案仅删除空格。如果您还想删除制表符或换行符，请使用
stringi 包中的 stri_replace_all_charclass 函数。请保留 HTML 标签。library(stringi)
stri_replace_all_charclass(" ala \t ma \n kota ", "\\p{WHITE_SPACE}", "")
## [1] "alamakota"
- bartektartanus
3
5
stringi 包现已上线 CRAN，尽情享用！ :) - bartektartanus1上面的命令是不正确的。正确的方法是使用stri_replace_all_charclass(" ala \t ma \n kota ", "\p{WHITE_SPACE}", "")。 - Lucas Fortini
5使用
stringi 几个月后，我已经看到/学会了它的强大和高效，它已经成为我进行字符串操作的首选包。你们在这方面做得很棒。 - Rich Scriven6
可以考虑采用另一种方法
library(stringr)
str_replace_all(" xx yy 11 22 33 ", regex("\\s*"), "")
#[1] "xxyy112233"
\\s：匹配空格、制表符、竖向制表符、换行符、换页符、回车符
*：至少匹配0次
- Tho Vu
1
需要注意的是，regex() 命令也来自于 stringr 包。 - Sky Scraper
3
income<-c("$98,000.00 ", "$90,000.00 ", "$18,000.00 ", "")
使用
trimws() 函数来删除 .00 后面的空格。income<-trimws(income)
- Onkar Kokane
-1
你可以尝试使用stringr库中的以下代码：
- 删除连续的填充空格
删除填充空格
库(stringr)
2. 1. | | V V str_replace_all(str_trim(" xx yy 11 22 33 "), " ", "")
- Data Jules
1
只删除空格和可能的制表符，而不删除换行符。 - Sky Scraper
网页内容由stack overflow 提供, 点击上面的可以查看英文原文，
原文链接
原文链接
"[[:space:]]"和"\\s"之间有什么区别吗？ - Sacha Epskamp