Error in gsub(sprintf("(*UCP)\\b(%s)\\b", paste(sort(words, decreasing = TRUE), : 'pattern' is invalid UTF-8

这个错误通常出现在使用`gsub()`函数时，其中一个或多个输入字符串包含无效的UTF-8字符。可能是因为输入字符串包含了不符合当前字符编码的字符，或者字符串本身不是UTF-8编码的。

为了解决这个问题，可以尝试以下几个步骤：

1. 确认输入字符串是否是UTF-8编码的。可以使用`Encoding()`函数来检查字符串的编码方式。如果不是UTF-8编码的，可以使用`iconv()`函数将其转换为UTF-8编码。

2. 使用`iconv()`函数将输入字符串中的无效字符替换为有效字符。例如，可以使用以下代码将字符串中的无效字符替换为问号：

   input <- iconv(input, to = "UTF-8", sub = "?")

3. 如果输入字符串中包含了一些非ASCII字符，可以将`gsub()`函数的`fixed`参数设置为`FALSE`，同时将`perl`参数设置为`TRUE`。这样可以使用Perl风格的正则表达式引擎，支持更多的字符编码。

   gsub(pattern, replacement, x, fixed = FALSE, perl = TRUE)

希望以上方法能帮助你解决问题。