咨询在R中免费翻译数据框的可行工具与方法

嘿，刚好有几个不需要付费API密钥的方案能解决你的问题，针对你提供的德语数据框，我来给你演示具体操作：

方案1：使用googletrans包（基于谷歌免费翻译接口） #

这个包调用的是谷歌翻译的非官方免费接口，适合小量数据的翻译（注意有请求频率限制，个人使用完全足够）。

首先安装并加载包：

install.packages("googletrans")
library(googletrans)

然后对你的数据框进行翻译：

# 你的原始数据框
df <- data.frame(words = c("Hallo", "Ampel", "Straße"))

# 执行翻译，指定源语言为德语（de），目标语言为英语（en）
translation_result <- translate(df$words, source = "de", target = "en")

# 将翻译结果替换回数据框
df$words <- translation_result$text

# 查看结果
df

运行后你会得到：

words
1    hello
2 traffic light
3    street

方案2：使用libretransR包（对接开源免费的LibreTranslate） #

LibreTranslate是开源的翻译项目，有公共免费实例可用，也可以自行部署私有实例，完全免费且无商业限制。

首先安装包（需要从GitHub安装）：

install.packages("remotes")
remotes::install_github("abresler/libretransR")
library(libretransR)

然后进行翻译操作：

# 你的原始数据框
df <- data.frame(words = c("Hallo", "Ampel", "Straße"))

# 使用公共LibreTranslate实例进行翻译
translated <- lt_translate(
  text = df$words,
  source = "de",
  target = "en",
  api_url = "https://libretranslate.de/"  # 公共实例地址
)

# 替换回数据框
df$words <- translated$translatedText

# 查看结果
df

这个方案的翻译结果和上面一致，而且如果你的数据量较大，可以自己部署一个LibreTranslate实例，避免公共实例的限制。

注意：免费公共API都有请求频率或数据量限制，如果是大规模翻译任务，还是建议考虑部署私有开源翻译服务或者使用付费API，但小量需求的话上面两个方案完全够用。

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