r - 使用 rtweet 包中的 Lookup_coords() 函数获取国家/地区位置坐标

Question

我已经安装了 rtweet，当我想收集来自美国以外的特定国家/地区的推文时，该软件包不会收集任何数据。我已经使用来自 Google 的相同 API key 作为 R 中的环境变量安装了 Geocoding API、Maps JavaScript API 和 Geolocation API。以下是我遵循的步骤:

生成谷歌地图 token

google_maps_token<-"my key XXXXXXXXXX"

主目录路径

home_directory <- path.expand("~/")

与 token 名称组合

file_name <- file.path(home_directory, "google_maps_token.rds")

将 token 保存到主目录

saveRDS(google_maps_token, file = file_name)

创建环境变量

cat(paste0("GOOGLE_MAPS_PAT=", file_name),
file = file.path(home_directory, ".Renviron"),
append = TRUE)

可视化 API key 环境变量

usethis::edit_r_environ() 

TWITTER_PAT=/Users/xxxxxx/.rtweet_token1.rdsGOOGLE_MAPS_PAT=/Users/xxxxxx//google_maps_token.rds

保存 google api key 后，我重新启动 RStudio 以开始收集推文，结果发生了:

加载rtweet库

library(rtweet)

收集来自美国的推文

tweets_USA <- search_tweets("#lang:en",
                        geocode = lookup_coords("USA",apikey = "google_maps_token"),
                n=10, include_rts = FALSE)

正在搜索推文...推文收集完毕!

10 tweets from USA

收集来自墨西哥的推文

tweets_Mexico <- search_tweets("#lang:es",
                           geocode = lookup_coords("mexico",apikey = "google_maps_token"),
                n=10, include_rts = FALSE)

正在搜索推文...推文收集完毕!

no data collected from Mexico

此外，当我使用 rtweet 包中的 Lookup_coords() 函数和“usa”时，它可以工作

获取来自美国的坐标

usa <- lookup_coords("usa")

coordinates from USA

但是当我尝试按照帮助部分中的示例使用另一个地址时，它不会收集任何数据

获取巴西的坐标

bz <- lookup_coords("brazil")

no coordinates from Brazil

但是当我直接在函数中写入 API key 时，它就可以工作了。出于安全原因，我改为“XXXXXXXXXX”

mexico_coord <- lookup_coords(address = "mexico",
                          components = "country:Mexico",
                          apikey = "XXXXXXXXXXXX") 

mexico coordinates

我做错了什么或者我需要在另一个目录中安装 API key 吗？我不得不说我的工作目录(保存项目和脚本的位置)与运行 path.expand("~/") 时显示的主目录不同

Answer 1

我找到了一个让lookup_coords()函数正常工作的解决方案。我只需使用 Sys.getenv() 函数来调用 google_maps_token.rds

使用墨西哥坐标生成一个变量

mexico_coord <- lookup_coords(address = "mexico",
                          components = "country:Mexico",
                          apikey=Sys.getenv("google_maps_token.rds"))

之后我可以使用 search_tweet() 函数收集来自墨西哥的 10 条西类牙语推文

tuits_Mex_esp_10 <- search_tweets("lang:es",
                          geocode = mexico_coord, n = 10)