Question

从JSON流导入数据后，我有一个数据框，它是621个相同22个变量的列表。

List of 621
 $ :List of 22
  ..$ _id              : chr "55c79e711cbee48856a30886"
  ..$ number           : num 1
  ..$ country          : chr "Yemen"
  ..$ date             : chr "2002-11-03T00:00:00.000Z"
  ..$ narrative        : chr ""
  ..$ town             : chr ""
  ..$ location         : chr ""
  ..$ deaths           : chr "6"
  ..$ deaths_min       : chr "6"
  ..$ deaths_max       : chr "6"
  ..$ civilians        : chr "0"
  ..$ injuries         : chr ""
  ..$ children         : chr ""
  ..$ tweet_id         : chr "278544689483890688"
  ..$ bureau_id        : chr "YEM001"
  ..$ bij_summary_short: chr ""
  ..$ bij_link         : chr ""
  ..$ target           : chr ""
  ..$ lat              : chr "15.47467"
  ..$ lon              : chr "45.322755"
  ..$ articles         : list()
  ..$ names            : chr ""| __truncated__
 $ :List of 22
  ..$ _id              : chr "55c79e711cbee48856a30887"
  ..$ number           : num 2
  ..$ country          : chr "Pakistan"
  ..$ date             : chr "2004-06-17T00:00:00.000Z"
  ..$ narrative        : chr ""
  ..$ town             : chr ""
  ..$ location         : chr ""
  ..$ deaths           : chr "6-8"
  ..$ deaths_min       : chr "6"
  ..$ deaths_max       : chr "8"
  ..$ civilians        : chr "2"
  ..$ injuries         : chr "1"
  ..$ children         : chr "2"
  ..$ tweet_id         : chr "278544750867533824"
  ..$ bureau_id        : chr "B1"
  ..$ bij_summary_short: chr ""| __truncated__
  ..$ bij_link         : chr ""
  ..$ target           : chr ""
  ..$ lat              : chr "32.30512565"
  ..$ lon              : chr "69.57624435"
  ..$ articles         : list()
  ..$ names            : chr ""

  ...

如何将这些列表组合成一个数据框，对22个变量进行621次观测？请注意，所有621个列表都是未命名的。

编辑：根据请求，以下是我获取此数据集的方式：

library(rjson)
url <- 'http://api.dronestre.am/data'
document <- fromJSON(file=url, method='C')
str(document$strike)

Answer 1

您能提供有关如何生成数据的示例吗？我没有测试答案但是，以下内容应该有所帮助。如果你可以更新Q，关于你如何提出数据，我可以努力尝试。

更新

library(rjson)
library(data.table)
library(dplyr)
url <- 'http://api.dronestre.am/data'
document <- fromJSON(file=url, method='C')
is(document)
listdata<- document$strike
df<-do.call(rbind,listdata) %>% as.data.table
dim(df)

Answer 2

$WORKSPACE/wheelhouse有一个有用的purrr函数，可以“反转”一个列表。 transpose元素会导致出现问题，因为它总是显示为空，并在您尝试转换为data.frame时对其进行排空，因此我已将其子集化。

$articles

r：合并未命名数据集的列表

2 个答案: