Question

我正在尝试使用下面提到的数据框解析json列：

ID         Json_Data
ABC-123    {}
AXD-456    {}
AET-789    {}

我使用下面提到的代码：

library(jsonlite)
library(dplyr)
library(purrr)
library(tidyr)

    json_file <- lapply(df$Json_Data, function(x) {
      x[sapply(x, is.null)] <- NA
      unlist(x)
    })

 Output<-data.frame(json_file = unlist(json_file))

我希望在非结构化json数据的情况下，它只需要引用第一个json文件并在输出w.r.t ID中创建那么多列。

只是想知道，如果有任何方法可以通过json头名称获取特定值吗？

下面提到的示例数据针对一个ID，针对不同的ID 随着json标题数量的增加/减少而变大或变小。

示例Json数据：

"{
  ""headerSegment"": {
    ""A"": ""123"",
    ""B"": ""456"",
    ""C"": "" "",
    ""D"": ""15004"",
    ""date1"": ""08/06/2017"",
    ""time1"": ""164637""
  },
  ""seg1"": {
    ""nam"": ""arf"",
    ""date2"": ""01/01/1947"",
    ""sex"": ""Male""
  },
  ""ifd"": [
    {
      ""hse"": ""xrt"",
      ""val1"": ""123"",
      ""adft"": ""T""
    }
  ],
  ""ete"": [
    {
      ""ert"": ""9999"",
      ""ert1"": ""fdr"",
      ""eew"": ""E""
    }
  ],
  ""dfer"": [],
  ""ertd"": {
    ""dfe"": """"
  },
  ""Type"": [],
  ""sder"": {
    ""fig1"": ""erte"",
    ""adf"": ""14"",
    ""Dt"": ""08/06/2017"",
    ""Val1"": ""0-100""
  },
  ""Type2"": {
    ""fig2"": ""ert"",
    ""adfg"": ""20"",
    ""Dt2"": ""08/06/2017"",
    ""Val2"": ""980""
  },
  ""afdert"": [
    {
      ""age"": ""dfe"",
      ""ge"": ""ere"",
      ""aeer"": ""254"",
      ""ageer"": ""ere"",
      ""Date3"": ""08/06/2017"",
      ""aeee"": ""R""
    }
  ],
  ""ef"": [],
  ""ferr"": [],
  ""fere"": {}
}"

无法解析R

0 个答案: