0

我有一个很长的 json 文件，我想从中提取城市名称及其相应的海拔高度。结果应该是一个列表，其中 A 列包含城市名称，B 列包含海拔。

这里是 R 的一些数据：

l <- fromJSON('[{"_id": "CtNjHGG8asEvFyqsM","cronjobname": "Elev","cronjobid": "mmsibiZL4p42fL8jh",
"cronjobtyp": "importTestData","datasource": "importTestData","data": [{
 "Station": "New York","Elev":    300},{ "Station": "London","Elev":    35}],
"createdAt": "2016-04-30T22:10:11.342Z","createdBy": null,"modifiedAt": "2016-04-30T22:10:11.342Z","modifiedBy": null}]')

这就是我想出的：

m <- lapply(
  l[[1]]$data, 
  function(x) c(x$Station['Station'], x$Elev['Elev'])
)
m <- do.call(rbind, m)

但是，我知道这不完整，应该是l[[1]]$data[[1]]$Station访问站，但我不能简单地使用[[x]]$Station不幸。我错过了什么，或者我需要将其放入循环中以访问多个x？

4

1 回答 1

2

那是你要的吗？

  m<-lapply(
        l[[1]]$data, 
        function(x) c(x$Station, x$Elev)
  )
  m <- do.call(rbind, m)
  > m
  [,1]       [,2] 
  [1,] "New York" "300"
  [2,] "London"   "35"

或者你可以使用这个：

  m <- do.call(rbind, l[[1]]$data)
  > m
  Station    Elev
  [1,] "New York" 300 
  [2,] "London"   35

该语句x$Station['Station'] 等同于l[[1]]$data[[1]]$Station['Station']so，其中没有任何内容。

于 2016-05-10T13:27:39.687 回答