在字符串中的最后一个元素之前插入“和”

Question

说我有这个字符串：

fruits <- c("apple", "pear", "orange", "banana", "melon")

我可以将每个元素折叠成这样的字符串：

cat(paste(fruits, collapse = ", "))

但是如何在最后一个元素之前插入？请注意，我的真实字符串的长度各不相同。

输出应为：

apple, pear, orange, banana and melon

Answer 1

您可以使用sub

> cat(sub("(.*),", "\\1 and",paste(fruits, collapse = ", ")))
apple, pear, orange, banana and melon