Как распаковать это возвращаемое значение jsonlite в R? - PullRequest
Новая
       23

Как распаковать это возвращаемое значение jsonlite в R?

1 голос
/ 01 апреля 2020

У меня есть этот код: 

library(jsonlite)

df <- fromJSON('blarg.json')

из этого json (в файле с именем blarg.json): 

[{  "id": 211,
    "sub_question_skus": {  "0": 329, "behavior": 216 } },
 {  "id": 333,
    "sub_question_skus": [  340, 341 ] },
 {  "id": 345,
    "sub_question_skus": [  346, 352 ] },
 {  "id": 444,
    "sub_question_skus": null }]

, который создает фрейм данных примерно так: 

> df
   id sub_question_skus
1 211          329, 216
2 333          340, 341
3 345          346, 352
4 444              NULL

Ах, но посмотрите, его структура довольно сложна в средстве просмотра RStudio:

enter image description here

Я хочу что-то вроде: 

df_expanded <- data.frame(id=c(211, 211, 333, 333, 345, 345),
                          sub_question_sku=c(329,216,340,341,346,352))
> df_expanded
   id sub_question_sku
1 211              329
2 211              216
3 333              340
4 333              341
5 345              346
6 345              352

Как мне это получить?

Для контекста я пытаюсь обновить rsurveygizmo для обработки подвопросов из Survey Gizmo. Это в гору для меня.

1 Ответ

1 голос
/ 01 апреля 2020

Хаки, но начало: 

df$sub_question_skus <- replace(
  df$sub_question_skus,
  sapply(df$sub_question_skus, is.null), NA)

as.data.frame(
  do.call(
    rbind,
    Map(f=cbind, id=df$id, sub=df$sub_question_skus)),
  row.names = FALSE)
#    id sub
# 1 211 329
# 2 211 216
# 3 333 340
# 4 333 341
# 5 345 346
# 6 345 352
# 7 444  NA
...