xoá dấu cách bằng dấu gsub trong R

Question

Có ai có mẹo để xóa dấu cách trên các biến bằng gsub không?

Dưới đây là mẫu dữ liệu của tôi. Như bạn có thể thấy, tôi có cả dấu cách và dấu cách được nhúng trong biến.

county <- c("mississippi ","mississippi canyon","missoula ", 
      "mitchell ","mobile ", "mobile bay") 

Tôi có thể sử dụng logic sau để xóa tất cả không gian, nhưng điều tôi thực sự muốn chỉ là di chuyển dấu cách ở cuối.

county2 <- gsub(" ","",county) 

Mọi hỗ trợ sẽ được đánh giá cao.

Answer 1

Bạn có thể sử dụng một biểu thức chính quy:

county <- c("mississippi ","mississippi canyon","missoula ", 
     "mitchell ","mobile ", "mobile bay") 
county2 <- gsub(" $","", county, perl=T) 

$ đứng cho đến cuối chuỗi văn bản của bạn, do đó không gian chỉ trailing được khớp. perl=T cho phép biểu thức chính quy cho mẫu đối sánh. Để biết thêm thông tin về biểu thức chính quy, hãy xem ?regex.

Answer 2

Đọc ?regex để biết ý tưởng về cách biểu thức chính quy hoạt động.

gsub("[[:space:]]*$","",county) 

[:space:] là lớp ký tự được xác định trước khớp với ký tự không gian trong ngôn ngữ của bạn. * nói để lặp lại kết quả bằng không hoặc nhiều lần và $ nói để khớp với phần cuối của chuỗi.

Answer 3

Nếu bạn không cần sử dụng lệnh gsub - hàm str_trim hữu ích cho việc này.

library(stringr) 
    county <- c("mississippi ","mississippi canyon","missoula ", 
     "mitchell ","mobile ", "mobile bay") 
    str_trim(county) 

Answer 4

Above solution can not be generalized. Here is an example: 


    a<-" keep business moving" 
    str_trim(a) #Does remove trailing space in a single line string 

However str_trim() from 'stringr' package works only for a vector of words and a single line but does not work for multiple lines based on my testing as consistent with source code reference. 

    gsub("[[:space:]]*$","",a) #Does not remove trailing space in my example 
    gsub(" $","", a, perl=T) #Does not remove trailing space in my example 

Below code works for both term vectors and or multi-line character vectors which was provided by the reference[1] below. 

    gsub("^ *|(?<=) | *$", "", a, perl=T) 


#Reference::