我想从下一页中获取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