Trong R, thay thế văn bản trong một chuỗi

Question

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.

Sau đây là các 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 ra cột thứ hai bằng cách loại bỏ các e 's:

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

Answer 1

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

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

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

gì gsub làm ở đây là để thay thế từng xảy ra "e" với một chuỗi rỗng "".

---

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

Answer 2

Biểu thức thông thường bạn bè:

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ô hình 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> 

Answer 3

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 các gói stringr

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

Cả hai sẽ cho kết quả mong muốn:

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

Answer 4

Sử dụng stringi gói:

require(stringi) 

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

Answer 5

Bạn không cần phải tạo khung dữ liệu từ vectơ của dây, 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.

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

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

này sẽ sản xuất

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