获取Gallup数据JSON页面并使用R转换为csv

Posted 2021-05-04

我想从下一页中获取R中的json数据并将其转换为tibble。第一次在R中使用json

以下代码不起作用，因此可以使用一些帮助。

library(jsonlite)
library(tidyverse)

trump_json <- fromJSON(txt = "http://news.gallup.com/wwwv7interactives/json/CURRENTPRESWEEKLY/codename.aspx?")
obama_json <- fromJSON(txt = "http://news.gallup.com/wwwv7interactives/json/OBAMAEXPANDED/codename.aspx?")

as.tibble(trump_json)

编辑：将文件更改为txt参数。

现在它产生：

# A tibble: 3 x 2
     `?xml` CurrentPresident
     <list>           <list>
1 <chr [1]>        <chr [1]>
2 <chr [1]>      <list [12]>
3 <chr [1]>       <list [2]>

答案

你的问题标题与你上面要求的不符。我会更新问题标题，以便尽可能反映这一点。

请找到这个解决方案，将JSON数据转换为R中的tibble。

library(jsonlite)

json_raw <- stream_in(url("http://news.gallup.com/wwwv7interactives/json/CURRENTPRESWEEKLY/codename.aspx?"), flatten = TRUE)

#--str(json_raw)

json_flat <- flatten(json_raw)

#--json_flat

library(tibble)

json_tibble <- as_data_frame(json_flat)

json_tibble