如何用googleLanguageR等工具翻译数据表的表头与列内容？

前置准备 #

• 安装并加载所需包：

# 首次运行时安装包
install.packages(c("googleLanguageR", "data.table"))

# 加载包
library(googleLanguageR)
library(data.table)

• 配置Google Cloud API认证：
  需先在Google Cloud平台启用Cloud Translation API，获取服务账号密钥文件，再执行认证：

gl_auth("path/to/your/service-account-key.json")

具体实现代码 #

# 初始数据表
DT <- data.table(frase=c('Buongiorno','rosso','sera'))

# 1. 翻译表头：将意大利语列名"frase"译为英语"sentence"
translated_colname <- gl_translate("frase", target = "en", source = "it")$translatedText

# 2. 翻译列内容：将列内意大利语文本译为英语
translated_content <- gl_translate(DT$frase, target = "en", source = "it")$translatedText

# 3. 构建目标数据表DT_end
DT_end <- data.table(
  sentence = DT$frase,
  sentence = translated_content
)

# 查看结果
DT_end

替代方案（无需Google Cloud API） #

如果不想依赖Google Cloud服务，可使用translate包基于免费接口实现：

# 安装并加载包
install.packages("translate")
library(translate)

# 设置翻译源语言（意大利语）和目标语言（英语）
options(translate.from = "it", translate.to = "en")

# 翻译表头与内容
translated_colname <- translate("frase")
translated_content <- translate(DT$frase)

# 构建结果表
DT_end <- data.table(
  sentence = DT$frase,
  sentence = translated_content
)

内容的提问来源于stack exchange，提问作者highbury