Question

我正在研究R中的一些简单处理。目标是从票务系统中提取票证（事件）（出于这些目的，我只提取事件编号和创建日期）。我通过REST提取返回JSON对象。我正在使用HTTR包这样做。我是这样做的：

URL <= "http://......"
incidentsQuery <- GET(URL, username=..., password=...., ..., accept_json())

现在，我有了回报，但我的目标是按月和年计算一些数。所以我使用以下方法将其转换为数据框：

incidentsJSON <- content(incidentQuery, type="text")
incidentsDF <- as.data.frame(fromJSON(incidentsJSON)

现在我将信息放入数据框中，这样我就可以使用Zoo包中的as.yearmon来获取月份和年份，然后将计数（长度）与年份和月份进行汇总。所以，现在我回来给了我这样的东西：

MonthYear  Count
Nov 2014   909
Dec 2014   4354
Jan 2015   4484
....

现在，凭借我对R的了解，我将其存储到数据框中。然后我想将其转换回有意义的JSON格式，以便我可以使用D3.js来做一些Web图形。基于JSON的标准格式，它应遵循以下格式：

{
 "result":
  {
     "MonthYear": "Nov 2014",
     "Count": 909
  },
  {
     "MonthYear": "Dec 2015",
     "Count": 4354
  }
}

相反（我顺便使用jsonlite包），我使用：

incidentCountJSON <- toJSON(incidentDFCounts, pretty=TRUE)

然后我使用write（）将其写入文件。打开文件，我得到：

[
  {
     "MonthYear": "Nov 2014",
     "Count": 909
  },
  {
     "MonthYear": "Dec 2015",
     "Count": 4354
  }
]

我是JSON的新手，只是学习这个，但我知道这会返回一个对象数组，我很难解析D3.js和Chart.js库/框架。我想确保遵循JSON标准，并能够将数据处理为R并返回标准格式。有人可以给我一些关于如何做到这一点的建议/提示，或者我哪里出错了？非常感谢，提前。我为可能错过的任何事情道歉，但我是第一次发布海报。如果需要更多信息，请告诉我。

Answer 1

Lars发布的上述信息引导我找到解决方案。我发布这个作为我遇到的问题的确认答案。我无法接受评论作为答案（我知道），所以我发布这个作为问题的答案。

从R

1 个答案: