Напишите JSON с несколькими входами в R - PullRequest
Новая
       21

Напишите JSON с несколькими входами в R

0 голосов
/ 02 декабря 2018

У меня есть тиббл и список, который я хотел бы записать в файл json.

# A tibble: 2 x 12
  i     n             c                  x      
  <chr> <chr>         <chr>              <chr>  
1 NYC   New York City United States      LON,271;BOS,201
2 LON   London        United Kingdom     NYC,270

Я хотел бы заменить столбец 'x' списком.

Когда я пытаюсь объединить по столбцу 'i' с элементом списка, дублируется много данных ...: /

пример списка: 

$NYC
     d   p
1: LON 271
2: BOS 201

$LON
     d   p
1: NYC 270

Я бы хотел закончить тем, что выглядит примерно так: 

[
  {
    "i": "NYC",
    "n": "New York City",
    "c": "United States",
    "C": "US",
    "r": "Northern America",
    "F": 66.256,
    "L": -166.063,
    "b": 94.42,
    "s": 0.752,
    "q": 4417,
    "t": "0,0,0,0,0",
    "x": [{
              "d": "LON",
              "p": 271
          },
          {
              "d": "BOS",
              "p": 201
          }]
}
  ...
]

Я думаю, что должен быть способ написать файл json без слияния списка и тиббла, или, может быть, тамспособ объединить их рваный путь ?

ах.У меня просто была другая идея.может быть, я могу преобразовать свой фрейм данных в список, а затем использовать уменьшение, чтобы объединить списки ...

http://www.sharecsv.com/s/2e1dc764430c6fe746d2299f71879c2e/routes-before-split.csv

http://www.sharecsv.com/s/b114e2cc6236bd22b23298035fb7e042/tibble.csv

1 Ответ

0 голосов
/ 04 декабря 2018

Мы можем сделать следующее: 

tbl
# A tibble: 1 x 13
#       X i     n      c             C     r                 F      L     b     s     q t        x               
#   <int> <fct> <fct>  <fct>         <fct> <fct>         <dbl>  <dbl> <dbl> <dbl> <int> <fct>    <fct>           
# 1     1 LON   London United Kingd… GB    Northern Eur…  51.5 -0.127  55.4  1.25  2088 0,0,1,3… AAL,15;AAR,15;A…

require(tidyverse)
tbl$x <- map(tbl$x, ~ strsplit(., ";|,")[[1]] %>%
             {data.frame(d = .[c(T, F)], p = as.numeric(.[c(F, T)]))})

Последние две строки являются сокращенной версией этого базового эквивалента R: 

tbl$x <- lapply(tbl$x, function(r) {
  tmp <- strsplit(r, ";|,")[[1]]
  data.frame(d = tmp[seq(1, length(tmp), 2)],
             p = as.numeric(tmp[seq(2, length(tmp), 2)]))
})

Перейдем над столбцом x,разделите его элементы на ; и , всякий раз, когда это возможно, а затем используйте тот факт, что результирующие нечетные элементы будут соответствовать, делают столбец d в желаемом результате, а четные элементы - столбцу p.

Вывод: 

toJSON(tbl, pretty = TRUE)
[
  {
    "X": 1,
    "i": "LON",
    "n": "London",
    "c": "United Kingdom",
    "C": "GB",
    "r": "Northern Europe",
    "F": 51.508,
    "L": -0.127,
    "b": 55.43,
    "s": 1.25,
    "q": 2088,
    "t": "0,0,1,3,1",
    "x": [
      {
        "d": "AAL",
        "p": 15
      },
      {
        "d": "AAR",
        "p": 15
      },
      {
        "d": "ABZ",
        "p": 48
      }
    ]
  }
]
...