仅使用R从JSON中提取特定级别的关键元素

Question

我正在R中使用巨大的JSON文件。这些JSON文件具有嵌套到列表中的列表（嵌入列表（等等））。这样就有多个层次的元素。

我的问题是我如何只提取存储在一个特定级别的关键元素，而没有得到与他所有的嵌套列表相关的值？

，我在看那样工作的文件越来越少这样的：

{ 
    "Key 1 at level 1": "value x", 
    "Key 2 at level 1": "value x", 
    "Key 3 at level 1": { 
     "Key 1 at level 2": { 
      "Key 1 at level 3": "value x", 
      "Key 2 at level 3": "value x", 
      "Key 3 at level 3": "value x" 
     }, 
     "Key 2 at level 2": { 
      "Key 4 at level 3": "value x", 
      "Key 5 at level 3": "value x", 
      "Key 6 at level 3": "value x" 
     } 
    } 
} 

所以，在这个例子中，我想是检索，将含有“键1处第2级列表“和”2级关键2“。

您可以在这个环节发现一个真实的例子：http://bioinfo.hpc.cam.ac.uk/cellbase/webservices/rest/swagger.json（小心，因为我的巨大）

很抱歉，如果这个问题已经被问过。我花了很长时间寻找答案，但我没有找到任何答案。

在此先感谢。

Answer 1

在这种情况下，您需要每个顶级值内的键。我们可以通过将每个元素映射到它的名称来完成此操作。

这将给我们一个包含NULL s和字符向量的列表。我们unlist摆脱NULL s并把它变成一个单一的字符向量。

library('purrr') 
library('tidyverse') 
library('rjson') 

swagger <- fromJSON(' 
    { 
     "Key 1 at level 1": "value x", 
     "Key 2 at level 1": "value x", 
     "Key 3 at level 1": { 
      "Key 1 at level 2": { 
       "Key 1 at level 3": "value x", 
       "Key 2 at level 3": "value x", 
       "Key 3 at level 3": "value x" 
      }, 
      "Key 2 at level 2": { 
       "Key 4 at level 3": "value x", 
       "Key 5 at level 3": "value x", 
       "Key 6 at level 3": "value x" 
      } 
     } 
    } 
') 
map(swagger, names) %>% unlist 

[1] "Key 1 at level 2" "Key 2 at level 2"