Question

我一直在尝试访问API，该API以下列JSON格式显示：

{＆＃34; notes＆＃34;：＆＃34;数据是一个数组（行）数组，列中的行名称 row_headers＆＃34;，＆＃34; row_headers＆＃34;：[＆＃34; Date＆＃34;，＆＃34; Time Spent（seconds）＆＃34;，＆＃34; Number of 人＆＃34;＆＃34;活动＆＃34;＆＃34;分类＆＃34;＆＃34;生产率和＃34;]＆＃34;行＆＃34;：[[＆＃34; 2014- 05-28T09：00：00＆＃34;，538,1，＆＃34;的Gmail＆＃34;＆＃34;电子邮件＆＃34;， - 1]，[＆＃34; 2014-05-28T09：00： 00＆＃34;，450,1，＆＃34; MS 前景＆＃34;＆＃34;电子邮件＆＃34;，1]，[＆＃34; 2014-05-28T09：00：00＆＃34;，374,1，＆＃34;通信器＆＃34;＆＃ 34;通用通讯＆＃34;，1]，[＆＃34; 2014-05-28T09：00：00＆＃34;，315,1，＆＃34; MS 终端服务客户端＆＃34;，＆＃34;通用软件发展＆＃34;，2]，[＆＃34; 2014-05-28T09：00：00＆＃34;，306,1，＆＃34; fivethirtyeight.com＆＃34;＆＃34;通用新闻\ 00意见＆＃34;， -

我能够使用Python导入此JSON字典，并使用以下代码将其转换为数据框：

data = json.load(urllib2.urlopen(url))
dataframe = pandas.DataFrame(data['rows'],columns=data['row_headers'])

然而，当我尝试使用以下代码在R中执行类似的操作时，我收到一条错误消息，指出R＆＃34;无法打开文件＆＃39; NA＆＃39;：没有这样的文件或目录。＆＃34;

json_file <- 'url of API key'
raw_json <- fromJSON(file=json_file['raw'])

如果有人对如何将上面显示的JSON对象加载到R数据帧中有任何了解，我将非常感激。

Answer 1

以下是使用RJSONIO::fromJSON

的示例

library(RJSONIO)

raw_json <- fromJSON(content = "https://www.rescuetime.com/anapi/data?rtapi_key=B63NUgr1wbXQS_I6tT8ON0LpvyPPcXNOd1mXfrG9&perspective=interval&format=json&resolution_time=hour&restrict_kind=activity&restrict_begin=2013-01-01&restrict_end=2014-08-28%22")

然后，您可以使用data.table::rbindlist强制转换为data.table。

library(data.table)
final_data <- rbindlist(lapply(raw_json[['rows']],setattr,'names', raw_json[['row_headers']]))

在R中访问JSON对象

1 个答案: