听起来你有两种不同的文件编码，utf-8和utf-8-sig，后者在开头有一个Byte Order Mark为0xef, 0xbb, 0xbf表示编码。
我将iris数据集以两种编码方式写入csv-唯一的区别是第一行。

UTF-8编码格式：

sepal.length,sepal.width,petal.length,petal.width,species

UTF-8-签名：

sepal.length,sepal.width,petal.length,petal.width,species

在您的例子中，听起来R没有正确检测编码，但是使用encoding="utf-8"对某些文件有效，而encoding="utf-8-sig"对其他文件有效，在我看来，自然的操作过程是读取第一行，看看它是否在开始时具有该模式：

BOM_pattern <- "^"

encodings <- vapply(
    files_to_read,
    \(file) {
        line <- readLines(file, n = 1L, encoding = "utf-8")
        ifelse(grepl(BOM_pattern, line), "utf-8-sig", "utf-8")
    },
    character(1)
)

这将返回一个（命名的）字符向量c("utf-8", "utf-8-sig")，然后您可以为read.csv提供编码：

data_lst <- Map(
    \(file, encoding) read.csv(file, encoding = encoding),
    files_to_read,
    encodings
)

这应该读取具有正确编码的每个 Dataframe ，并将它们存储在列表data_lst中。

• • 编辑**

由于从右到左的阅读顺序，可能需要额外考虑。R是否将插入符号（^）用作句子开头分隔符取决于字符串中的所有字母是否都是希伯来字母。例如：

pattern  <- "^ז"
grepl(pattern, "זה משפט בעברית") # TRUE
grepl(pattern, "AAA זה משפט בעברית") # FALSE

这对希伯来语的普通用户来说可能是显而易见的，但对我来说是新的，可能会导致额外的复杂性。如果模式不总是在你认为应该识别的时候被识别，你可以从模式中删除脱字符：

BOM_pattern <- ""

唯一的例外情况是，您希望在其中一个列名中看到该字符串。