r - 如何随机 gsub 文本

Question

我正在尝试创建一些文本。我有一个数据框如下(里面有更多的文本行)

out<-data.frame(c("The road it long. It has many a winding path","The rain clouds are coming","My aunt has blue hair. It is like Marj Simpson's hair","The oesophagus is long. It is like a toothpaste tube"))

我想替换“它”。使用“和”，但我想随机执行此操作，以便示例输出为:

The road it long and has many a winding path
The rain clouds are coming
My aunt has blue hair. It is like Marj Simpson's hair
The oesophagus is long and is like a toothpaste tube

如何将随机替换的思想引入 gsub 或 str_replace？

Answer 1

我们可以获得可能值的样本来替换，然后进行替换

v1 <- sample(c("and", "It"), nrow(out), replace = TRUE)
gsub("\\.\\s*(?=[a-z])", " ", str_replace_all(out[,1], "(?i)It", v1), perl = TRUE)
#[1] "The road and long and has many a winding path"
#[2] "The rain clouds are coming"                         
#[3] "My aunt has blue hair. It is like Marj Simpson's hair" 
#[4] "The oesophagus is long and is like a toothpaste tube"