导入一些 json 数据

Question

我想在 R 中导入 json 数据。我知道已经发布了一些关于这个主题的讨论，但不幸的是我没有用这些代码得到我想要的结果，或者我的文件有很多错误。

我想导入这个： https://api.stocktwits.com/api/2/streams/symbol/AAPL.json 在 R.

我试过这样做：

AAPLapi <-  'https://api.stocktwits.com/api/2/streams/symbol/AAPL.json'

AAPLapi <- fromJSON(AAPLapi)

AAPLapi <- lapply(AAPLapi, function(x) {
  x[sapply(x, is.null)] <- NA
  unlist(x)
})

table=do.call("rbind", AAPLapi)
View(table)

但是在table=do.call行出错了...... 上周我不知道为什么但这条线奏效了，但我有一个 table 非常奇怪而且是错误的。

你能帮帮我吗？

Answer 1

试试包 jsonlite 也许它会对你有帮助 :

library("jsonlite")
your_json <- stream_in(url("https://api.stocktwits.com/api/2/streams/symbol/AAPL.json"))
str(your_json, max.level = 2)
View(your_json$messages)

如果您的 json 在 .txt 文件中，您可以：

download.file(url = "https://api.stocktwits.com/api/2/streams/symbol/AAPL.json", destfile = "AAPL.txt")
your_json <- stream_in(file("AAPL.txt"))

Answer 2

试试这个

library(curl)
library(jsonlite)
AAPLapi <- 'https://api.stocktwits.com/api/2/streams/symbol/AAPL.json'
df=stream_in(curl(AAPLapi))

导入一些 json 数据

Import some json data

json

r

import

jsonlite