如何从字符串中删除所有空格？

Question

因此“xx yy 11 22 33”将变成“xxyy112233”。我怎样才能实现这个目标？

Answer 1

一般来说，我们想要一个矢量化的解决方案，所以这里有一个更好的测试示例：

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

Answer 2

我刚刚了解了“stringr”包，它可以使用 str_trim( , side="both") 从字符串的开头和结尾删除空格，但它还有一个替换功能，以便：

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

[1] "xxyy112233"

Answer 3

x = "xx yy 11 22 33"

gsub(" ", "", x)

> [1] "xxyy112233"

Answer 4

使用 [[:blank:]] 匹配任何类型的水平空白字符。

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

Answer 5

请注意，上面写的灵魂仅删除空格。如果您还想删除制表符或换行符，请使用 stringi 包中的 stri_replace_all_charclass 。

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

Answer 6

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

Answer 7

可以考虑另一种方法

library(stringr)
str_replace_all(" xx yy 11 22  33 ", regex("\\s*"), "")

#[1] "xxyy112233"

\\s：匹配空格、制表符、垂直制表符、换行符、换页符、回车符

*：匹配至少 0 次

Answer 8

income<-c("$98,000.00 ", "$90,000.00 ", "$18,000.00 ", "")

要删除 .00 之后的空格，请使用 trimws() 函数。

income<-trimws(income)

Answer 9

从 stringr 库中，您可以尝试以下操作：

1. 删除连续填充空白

2. 删除填充空白

   库（字符串）

   <前><代码> 2. 1.
   | |
   维维

   str_replace_all(str_trim("xx yy 11 22 33"),"","")