存储循环将导致R中的数据帧

Question

我有一个用户在这个线程中好心帮助我的代码。除了结果没有存储在数据帧中之外，它完全按照我的意愿执行。

## Setting up API Call 
base_string1 <- "https.api.companyname/jurisdiction="
base_string2 <- "&date="
end_string <- "api_token=XYZ"
## Specifying objects to loop over 
dates <- seq(as.Date("1990-01-01"), as.Date("2022-01-01"), by = "year")
dates <- paste(head(dates, -1), tail(dates-1, - 1), sep = ":")
countries<- paste0("eu_", c("fra", "ger"))
## Looping over 
map_dfr(dates, function(dates){
map_dfr(states, function(countries){
api_string <-  paste0(base_string1, countries, base_string2, dates, end_string)
print(api_string)
json <- jsonlite::fromJSON(api_string)
data.frame("countries" = countries, 
"dates" = dates, 
"total_number" = json[["results"]]$total_number)
})
})

这给了我

countries                 dates total_number
1  eu_ger 1990-01-01:1990-12-31       2404
2  eu_fra 1990-01-01:1990-12-31       2056
3  eu_ger 1991-01-01:1991-12-31       3490
4  eu_fra 1991-01-01:1991-12-31       6070
5  eu_ger 1992-01-01:1992-12-31       7808
6  eu_fra 1992-01-01:1992-12-31       1904

这是我想要的信息，但我想将其存储在我可以访问的数据帧中。我还想把这些国家称为"；德国"；以及法国；而不是日期范围，我想称之为1992年(还有一个版本，我按月计算，在这种情况下，我希望值是年-月(。

我尝试在API调用之后添加以下内容，但没有成功。

json_df<- as_tibble(json)
json_df <- data.frame("countries" = countries, 
"dates" = dates, 
"total_number" = json[["results"]]$total_number)

我如何将结果存储在数据帧中，并在理想情况下更改国家名称/日期？

Answer 1

如以上评论中所建议的，尝试：

my_results <- map_dfr(dates, function(dates){
map_dfr(states, function(countries){
api_string <-  paste0(base_string1, countries, base_string2, dates, end_string)
print(api_string)
json <- jsonlite::fromJSON(api_string)
data.frame("countries" = countries, 
"dates" = dates, 
"total_number" = json[["results"]]$total_number)
})
})