解析R中的嵌套结构

Question

我有一个类似于 json 的字符串，表示嵌套结构。它不是真正的 json，因为名称和值没有被引用。我想将它解析为嵌套结构，例如列表列表。

#example:
x_string = "{a=1, b=2, c=[1,2,3], d={e=something}}"

结果应该是这样的：

x_list = list(a=1,b=2,c=c(1,2,3),d=list(e="something"))

有没有我不知道的方便的函数做这种解析？

谢谢。

Answer 1

如果您的所有数据都是一致的，那么有一个涉及正则表达式和 jsonlite 包的简单解决方案。代码是：

if(!require(jsonlite, quiet=TRUE)){ 
    #if library is not installed: installs it and loads it into the R session for use.

    install.packages("jsonlite",repos="https://ftp.heanet.ie/mirrors/cran.r-project.org")
    library(jsonlite)
}

x_string = "{a=1, b=2, c=[1,2,3], d={e=something}}"

json_x_string = "{\"a\":1, \"b\":2, \"c\":[1,2,3], \"d\":{\"e\":\"something\"}}"
fromJSON(json_x_string)

s <- gsub( "([A-Za-z]+)", "\"\1\"",  gsub( "([A-Za-z]*)=", "\1:", x_string ) )

fromJSON( s )

第一部分检查包是否已安装。如果是它加载它，否则它安装它然后加载它。我通常将其包含在我正在编写的任何 R 代码中，以简化 pcs/people.

之间的传输

您的字符串是 x_string，我们希望它看起来像 json_x_string，它在我们调用 fromJSON() 时提供所需的输出。

正则表达式分为两部分，因为它已经有一段时间了 - 我很确定这可以做得更优雅。再一次，这取决于你的数据是否一致，所以我现在就这样离开。首先它将“=”更改为“:”，然后在所有字母组周围添加引号。调用 fromJSON(s) 给出输出：

fromJSON(s)

$a

[1] 1

$b

[1] 2

$c

[1] 1 2 3

$d

$d$e

[1] "something"

Answer 2

由于缺乏可扩展性和灵活性，我宁愿避免使用JSON的解析，而是坚持正则表达式+递归的解决方案。

这是一个可扩展基本代码，可以根据需要解析您的输入字符串

主要递归函数：

# Parse string
parse.string = function(.string){
  regex = "^((.*)=)??\{(.*)\}"

  # Recursion termination: element parsing
  if(iselement(.string)){
    return(parse.element(.string))
  }

  # Extract components 
  elements.str = gsub(regex, "\3", .string)
  elements.vector = get.subelements(elements.str)

  # Recursively parse each element
  parsed.elements = list(sapply(elements.vector, parse.string, USE.NAMES = F))

  # Extract list's name and return 
  name = gsub(regex, "\2", .string)
  names(parsed.elements) = name
  return(parsed.elements)
}

。

帮助功能：

library(stringr)

# Test if the string is a base element
iselement = function(.string){
  grepl("^[^[:punct:]]+=[^\{\}]+$", .string)
}

# Parse element
parse.element = function(element.string){
  splits = strsplit(element.string, "=")[[1]]
  element = splits[2]

  # Parse numeric elements
  if(!is.na(as.numeric(element))){
    element = as.numeric(element)
  }

  # TODO: Extend here to include vectors

  # Reformat and return 
  element = list(element)
  names(element) = splits[1]
  return(element)
}

# Get subelements from a string
get.subelements = function(.string){
  # Regex of allowed elements - Extend here to include more types 
  elements.regex = c("[^, ]+?=\{.+?\}", #Sublist
                     "[^, ]+?=\[.+?\]", #Vector
                     "[^, ]+?=[^=,]+")    #Base element
  str_extract_all(.string, pattern = paste(elements.regex, collapse = "|"))[[1]]
}

。

解析结果：

string = "{a=1, b=2, c=[1,2,3], d={e=something}}"
string_2 = "{a=1, b=2, c=[1,2,3], d=somthing}"
named_string = "xyz={a=1, b=2, c=[1,2,3], d={e=something, f=22}}"
named_string_2 = "xyz={d={e=something, f=22}}"

parse.string(string)
# [[1]]
# [[1]]$a
# [1] 1
# 
# [[1]]$b
# [1] 2
# 
# [[1]]$c
# [1] "[1,2,3]"
# 
# [[1]]$d
# [[1]]$d$e
# [1] "something"

解析R中的嵌套结构

parsing nested structures in R

json

r

parsing

nested

string-parsing

主要递归函数：

帮助功能：

解析结果：