从 BigQuery 导入到 R 时的特殊字符

我有一个脚本用于废弃一些推文并将结果保存到 Google BigQuery。当我看到存储的数据时，像 ➕、‍♂️、Ñ、áéíóú 这样的特殊字符会正确显示，但是当我尝试再次将数据导入 R 时，它们会被一些奇怪的字符替换。这是一个例子。

# Create df

id_tweet <- 1023985670224785408
tweet <- "◉ Neuroeducación y entornos digitales de aprendizaje: un paso obligado para educadores, pedagogos y psicólogos"
descripcion <- "Desde las alturas se ve todo de otra manera... ️ ➕ ‍♂️"

data <- data.frame(id, tweet, description)

# Save to Google BQ

library(bigrquery)

insert_upload_job("project-id", "dataset", "table", data , write_disposition = "WRITE_APPEND")

#Load from Gooble BQ

sql <- paste("SELECT *", "FROM", "`project-id.dataset.table`")
data <- query_exec(sql, project = "project-id", use_legacy_sql = FALSE)

我的输出如下：

> data
               id_tweet
283 1023985670224785408
                                                                                                                                         tweet
283 ◉ Neuroeducación y entornos digitales de aprendizaje: un paso obligado para educadores, pedagogos y psicólogos
                                                                                        descripcion
283 Desde las alturas se ve todo de otra manera... ï¿½ï¿½ï¸ âž• ��<U+200D>â™‚ï¸ ï¿½ï¿½ ��

我想要的是保留原始格式。

我应该怎么办？

Thanks,

我测试了一些可能有帮助的东西。

首先，我保存了空白的 R 脚本并确保它采用 UTF-8 编码：文件 -> 使用编码保存 -> UTF-8。然后仅将问题中的特殊字符用双引号保存为 .csv（即"➕, ‍♂️, Ñ, áéíóú"）。然后读取 csvfileEncoding = "UTF-8", i.e:

test <- read.csv("test.csv", fileEncoding = "UTF-8", header=FALSE, stringsAsFactors = FALSE)

在 R Studio 内部，test返回：

# > test
# V1
# 1 \u2795, ‍♂️, Ñ, áéíóú

因此，除了 ➕ 之外的所有内容都可以在 R Studio 中很好地显示。然而，很多字符，甚至是常见的字符，如换行符和制表符等，在 RStudio 中都会有趣地显示，但通常是在写入文件时显示。这些没有什么不同。

当写入 csv 时（仅使用write.csv(test, 'test2.csv', row.names=FALSE)），它像在原始 csv 中一样完美显示（即在 sublime text 中打开时）

毕竟，我建议确保您的编码是 UTF-8，也许尝试将 BQ 输出保存为 csv（如果可能的话？）并检查它以查看问题是否来自 BQ 或 R。如果出现BQ 正确，那么只需更改 RStudio 中的编码即可。但如果它没有按预期从 BQ 中出来，那么我建议您需要更改 BQ 中的数据类型（更改为 UTF-8）