문자열에서 모든 공백을 제거하는 방법은 무엇입니까?

그렇게 " xx yy 11 22 33 "될 것 "xxyy112233"입니다. 어떻게하면 되나요?

일반적으로 벡터화 된 솔루션을 원하므로 더 나은 테스트 예제가 있습니다.

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}"등가 공백 인 것으로 간주 유니 코드 코드 포인트들의 세트에 대한 대체 구문 "[[: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

str_trim (, side = "both")으로 문자열의 시작과 끝에서 공백을 제거하는 "stringr"패키지에 대해 배웠지 만 다음과 같은 대체 기능도 있습니다.

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

[1] "xxyy112233"

위에 쓰여진 영혼은 공간 만 제거한다는 점에 유의하십시오. 패키지 stri_replace_all_charclass에서 탭 또는 줄 바꾸기를 제거하려는 경우 stringi.

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

[[:blank:]]모든 종류의 가로 공백 문자를 일치시키는 데 사용 합니다.

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

x = "xx yy 11 22 33"

gsub(" ", "", x)

> [1] "xxyy112233"

tidyverse str_squish()패키지 stringr의 기능 은 마법을 수행합니다!

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

이렇게하면 데이터 프레임의 모든 문자 변수에서 모든 공백을 제거 할 수 있습니다. 일부 변수 만 선택하려면 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)

stringr 라이브러리에서 다음을 시도 할 수 있습니다.

1. 연속 채우기 공백 제거

2. 빈칸 채우기

   도서관 (스트링거)

               2.         1.
               |          |
               V          V
   
       str_replace_all(str_trim(" xx yy 11 22  33 "), " ", "")