主页 / coding / 问题 / 78029215
Accepted
tic-toc-choc
Asked: 2024-02-21 01:16:14 +0800 CST

使用 R 将简单的 JSON 解析为数据帧

  • 772

我想用 R 解析一个看似简单的 JSON 文件：

tmp_extract <- "{\"encrypted_values\":[{\"name_a\":\"value_a\"}, {\"name_b\":\"value_b\"}, {\"name_c\":\"value_c\"}]}"

尝试jsonlite::fromJSON生成一个数据框，其中包含与名称一样多的列，并且每列只有一个值。

tmp_extract |> 
 jsonlite::fromJSON()

$encrypted_values
   name_a  name_b  name_c
1 value_a    <NA>    <NA>
2    <NA> value_b    <NA>
3    <NA>    <NA> value_c

（我也尝试过tmp_extract |> tidyjson::spread_all()，但没有成功。）

所需的输出：

# A tibble: 3 × 2
  name   value  
  <chr>  <chr>  
1 name_a value_a
2 name_b value_b
3 name_c value_c

2 个回答

  1. 使用 CRAN 包rjsoncons和JMESPath查询语法，在 JSON 中创建具有字段名称和值的对象

    query <- '{
    "name" : encrypted_values[].keys(@)[],
    "value": encrypted_values[].values(@)[]
}'
## check out our handiwork
j_query(tmp_extract, query) |> cat("\n")
# {"name":["name_a","name_b","name_c"],"value":["value_a","value_b","value_c"]}

    然后“旋转”到 tibble（或 data.frame）

    j_pivot(tmp_extract, query, as = "tibble")

    这种方法高效且灵活；它也可以应用于 NDJSON。

    • 3
  2. Best Answer

    尝试：

    tibble::enframe(unlist(unname(jsonlite::fromJSON(tmp_extract, simplifyDataFrame = FALSE))))
# # A tibble: 3 × 2
#   name   value  
#   <chr>  <chr>  
# 1 name_a value_a
# 2 name_b value_b
# 3 name_c value_c
    • 2

相关问题