Thay thế các ký tự cụ thể trong chuỗi

Tôi muốn xóa các ký tự cụ thể khỏi các chuỗi trong một vectơ, tương tự như tính năng Tìm và Thay thế trong Excel.

Dưới đây là dữ liệu tôi bắt đầu với:

group <- data.frame(c("12357e", "12575e", "197e18", "e18947")

Tôi bắt đầu chỉ với cột đầu tiên; Tôi muốn tạo cột thứ hai bằng cách xóa e's:

group       group.no.e
12357e      12357
12575e      12575
197e18      19718
e18947      18947

Với một biểu thức chính quy và hàm gsub():

group <- c("12357e", "12575e", "197e18", "e18947")
group
[1] "12357e" "12575e" "197e18" "e18947"

gsub("e", "", group)
[1] "12357" "12575" "19718" "18947"

Điều gì gsubở đây là để thay thế mỗi lần xuất hiện "e"bằng một chuỗi rỗng "".

Xem ?regexphoặc gsubđể được trợ giúp thêm.

Biểu thức thông thường là bạn bè của bạn:

R> ## also adds missing ')' and sets column name
R> group<-data.frame(group=c("12357e", "12575e", "197e18", "e18947"))  )
R> group
   group
1 12357e
2 12575e
3 197e18
4 e18947

Bây giờ sử dụng gsub()với mẫu thay thế đơn giản nhất có thể: chuỗi rỗng:

R> group$groupNoE <- gsub("e", "", group$group)
R> group
   group groupNoE
1 12357e    12357
2 12575e    12575
3 197e18    19718
4 e18947    18947
R> 

Tóm tắt 2 cách để thay thế chuỗi:

group<-data.frame(group=c("12357e", "12575e", "197e18", "e18947"))

1) Sử dụng gsub

group$group.no.e <- gsub("e", "", group$group)

2) Sử dụng stringrgói

group$group.no.e <- str_replace_all(group$group, "e", "")

Cả hai sẽ tạo ra đầu ra mong muốn:

   group group.no.e
1 12357e      12357
2 12575e      12575
3 197e18      19718
4 e18947      18947

Bạn không cần tạo khung dữ liệu từ vectơ của chuỗi, nếu bạn muốn thay thế một số ký tự trong đó. Biểu thức chính quy là lựa chọn tốt cho nó vì nó đã được đề cập bởi @Andrie và @Dirk Eddelbuettel.

Hãy chú ý, nếu bạn muốn thay thế các ký tự đặc biệt, như dấu chấm, bạn nên sử dụng cú pháp biểu thức chính quy đầy đủ, như trong ví dụ dưới đây:

ctr_names <- c("Czech.Republic","New.Zealand","Great.Britain")
gsub("[.]", " ", ctr_names)

cái này sẽ tạo ra

[1] "Czech Republic" "New Zealand"    "Great Britain" 

Sử dụng gói Stringi :

require(stringi)

group<-data.frame(c("12357e", "12575e", "197e18", "e18947"))
stri_replace_all(group[,1], "", fixed="e")
[1] "12357" "12575" "19718" "18947"

      library(stringi)

            group <- c('12357e', '12575e', '12575e', ' 197e18',  'e18947')

            pattern <- "e"  
            replacement <-  ""  
            group <- str_replace(group, pattern, replacement)      
            group    

[1] "12357"  "12575"  "12575"  " 19718" "18947"