用选择中的随机字符替换字符串

xxyyzz 发表于 Dev

xxyzz

您如何获取字符串并将".", ",", 的每个实例" "（即点、逗号或空格）替换为从中选择的一个随机字符c('|', ':', '@', '*')？

说我有一个这样的字符串

 Aenean ut odio dignissim augue rutrum faucibus. Fusce posuere, tellus eget viverra mattis, erat tellus porta mi, at facilisis sem nibh non urna. Phasellus quis turpis quis mauris suscipit vulputate. Sed interdum lacus non velit. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae;

要获得一个随机字符，我们可以将字符视为一个向量，然后使用sample函数从中选择一个。我假设首先我需要搜索点、逗号或空格，然后使用gsub函数来替换所有这些？

晚邮

鉴于你的澄清，试试这个：

x <- c("this, is nice.", "nice, this is.")
gr <- gregexpr("[., ]", x)
regmatches(x,gr) <- lapply(lengths(gr), sample, x=c('|',':','@','*'))
x
#[1] "this|*is@nice:" "nice@|this*is:"

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。