yếu tố thay thế của một vector

Question

Tôi có chuỗi sau:

string <- c("100 this is 100 test 100 string") 

Tôi muốn thay thế 100 trong chuỗi ở trên với các yếu tố của véc tơ khác:

replacement <- c(1000,2000,3000) 

Đầu tiên 100 của chuỗi nên được thay thế bằng 1000, thứ hai 100 vào năm 2000 và như vậy. Chuỗi kết quả sẽ trông giống như sau:

result <- c("1000 this is 2000 test 3000 string") 

Có cách nào hiệu quả để thực hiện điều này trong R?

Cảm ơn bạn.

Ravi

Answer 1

Không rất thanh lịch, nhưng điều này nên làm ..

string <- c("100 this is 100 test 100 string") 
temp <- unlist(strsplit(string, split = "\\s+")) 
replacement <- c(1000, 2000, 3000) 
temp[temp == "100"] <- replacement 
result <- paste(temp, collapse = " ") 

result 
## [1] "1000 this is 2000 test 3000 string" 

Answer 2

Dưới đây là một cách để làm điều đó với strsplit:

split <- unlist(strsplit(string, "100", fixed=TRUE)) 
split <- split[nchar(split) > 0] 
paste0(replacement, split, collapse="") 
# [1] "1000 this is 2000 test 3000 string" 

Dòng thứ hai là ở đây vì strsplit thêm một chuỗi rỗng vào đầu kết quả của nó vì 100 xuất hiện ở vị trí đầu tiên.

Answer 3

một cách:

> cs <- strsplit(string," ")[[1]] 
> cs[cs == "100"] <- replacement 
> cat(cs) 
1000 this is 2000 test 3000 string 

Answer 4

thế nào về việc sử dụng sub và *apply

tail(sapply(replacement, function(x) {string <<- sub("\\b100\\b",x,string)}), 1) 

Answer 5

Một cách khác (không cần thay đổi replacement vào một danh sách):

string <- c("100 this is 100 test 100 string") 
replacement <- list(1000, 2000, 3000) 
result <- do.call(sprintf, c(gsub('100', '%d', string), replacement)) 

Answer 6

muộn để đảng, nhưng regmatches có số điện thoại regmatches(...) <- value nt chức năng cho phép bạn làm điều này loại sạch trong một liner:

regmatches(string, gregexpr("100",string)) <- list(replacement) 
string 
# [1] "1000 this is 2000 test 3000 string" 

Nếu bạn không muốn ghi đè lên bạn gốc string, bạn có thể gọi hàm trực tiếp qua:

`regmatches<-`(string, gregexpr("100",string), value=list(replacement)) 
#[1] "1000 this is 2000 test 3000 string"