web-dev-qa-db-ja.com

文字列からすべての空白を削除する方法は?

したがって、" xx yy 11 22 33 ""xxyy112233"になります。どうすればこれを達成できますか?

121
waanders

一般に、ベクトル化されたソリューションが必要なので、より良いテスト例を示します。

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ライブラリ に基づいて構築されており、文字列操作関数の広範なセットを備えています。上記の equivalents は次のとおりです。

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

ここで "\\p{WHITE_SPACE}" は、"[[:space:]]""\\s"、およびspace()と同等の、空白と見なされるUnicodeコードポイントのセットの代替構文です。より複雑な正規表現の置換には、stri_replace_all_regexもあります。

stringiには trim functions もあります。

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
209
Aniko

Str_trim(、side = "both")を使用して文字列の先頭と末尾から空白を削除する「stringr」パッケージについて学びましたが、次のような置換関数もあります。

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

[1] "xxyy112233"
16
JollyRoger

[[:blank:]]を使用して、あらゆる種類の水平の空白文字に一致させます。

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

上記のsoultionはスペースのみを削除することに注意してください。タブまたは改行も削除する場合は、stringiパッケージからstri_replace_all_charclassを使用します。

library(stringi)
stri_replace_all_charclass("   ala \t  ma \n kota  ", "\\p{WHITE_SPACE}", "")
## [1] "alamakota"
7
bartektartanus
x = "xx yy 11 22 33"

gsub(" ", "", x)

> [1] "xxyy112233"
6
ZWL

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
4
damianooldoni

これにより、データフレーム内のすべての文字変数からすべてのスペースを削除できます。一部の変数のみを選択する場合は、mutateまたは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)

0
NinaOtopal