将 jsonlite 用于多级嵌套列表和 R 中的 NASA API答案

【问题标题】：Using jsonlite for multilevel nested lists and the NASA API in R将 jsonlite 用于多级嵌套列表和 R 中的 NASA API
【发布时间】：2020-01-21 01:59:30
【问题描述】：

使用 NASA 的 API 检索有关火星天气的信息，我检索了一个列表列表。在 python 中，pandas 在格式化数据方面做得很好；但是，我必须在 R 中编写 API。

这就是 R 中数据的结构方式，即使在使用 jsonlite 的 fromJSON(x, flatten = TRUE) 函数之后也是如此。

我想将原始数据结构化为类似于 pandas 表。

这是我的 API 代码：

library(httr)
library(jsonlite)
req <- "https://api.nasa.gov/insight_weather/?api_key=&feedtype=json&ver=1.0"
response <-  GET(req)
response <- content(response, as="text") 
mars <- fromJSON(response, flatten = TRUE)

【问题讨论】：

您可能不应该公开发布您的私有 API 密钥。您可能需要联系 SO 版主来清理帖子及其编辑历史记录。

标签： r list api rstudio jsonlite

【解决方案1】：

API 查询返回的信息比表格屏幕截图显示的要多，但我只专注于返回与示例结构相似的表格。如果您想要风向等额外信息，这是一个不同的结构，可能更容易单独解析和合并。

library(jsonlite)
library(purrr)
library(dplyr)
library(tidyr)

req <- "https://api.nasa.gov/insight_weather/?api_key=DEMO_KEY&feedtype=json&ver=1.0"
mars <- fromJSON(req)

map(mars[1:7], ~unlist(.x[1:6]) %>%
      bind_rows) %>%
  bind_rows(.id = "day") %>%
  pivot_longer(cols = grep("\\.", names(.)), names_sep = "\\.", names_to = c(".value", "var"))

# A tibble: 28 x 8
   day   First_UTC            Last_UTC             Season var   AT       HWS    PRE     
   <chr> <chr>                <chr>                <chr>  <chr> <chr>    <chr>  <chr>   
 1 402   2020-01-13T06:24:59Z 2020-01-14T07:04:33Z summer av    -65.475  5.364  637.752 
 2 402   2020-01-13T06:24:59Z 2020-01-14T07:04:33Z summer ct    178174   79226  89083   
 3 402   2020-01-13T06:24:59Z 2020-01-14T07:04:33Z summer mn    -100.044 0.236  618.015 
 4 402   2020-01-13T06:24:59Z 2020-01-14T07:04:33Z summer mx    -16.815  21.146 653.7326
 5 403   2020-01-14T07:04:34Z 2020-01-15T07:44:08Z summer av    -62.449  5.683  636.87  
 6 403   2020-01-14T07:04:34Z 2020-01-15T07:44:08Z summer ct    211897   95539  105800  
 7 403   2020-01-14T07:04:34Z 2020-01-15T07:44:08Z summer mn    -101.272 0.205  618.1757
 8 403   2020-01-14T07:04:34Z 2020-01-15T07:44:08Z summer mx    -16.931  20.986 653.4973
 9 404   2020-01-15T07:44:09Z 2020-01-16T08:23:44Z summer av    -63.622  5.303  636.148 
10 404   2020-01-15T07:44:09Z 2020-01-16T08:23:44Z summer ct    293286   132690 158958
# … with 18 more rows

【讨论】：