用"&"替换字符中的最后一个逗号

Question

我有许多不同的字符,具有以下结构:

# Example
x <- "char1, char2, char3"

我想用"&"删除此字符的最后一个逗号,即所需的输出应如下所示:

# Desired output
"char1, char2 & char3"

我怎么能用"&"替换字符的最后一个逗号？

Answer 1

一种选择是stri_replace_last来自stringi

library(stringi)
stri_replace_last(x, fixed = ',', ' &')
#[1] "char1, char2 & char3"

Answer 2

你可以使用sub:

sub(",([^,]*)$"," &\\1", x)
# [1] "char1, char2 & char3"