HighCharts Санки Диаграмма в R

Question

Я хотел бы создать диаграмму Санки, используя библиотеку highcharter из R. Обычно я просто могу посмотреть код javascript для графика и перевести его для R, но для графиков sankey у меня возникли некоторые проблемы , Я хотел бы просто начать с создания что-то вроде этого: http://jsfiddle.net/highcharts/z2rL672w/3/

Вот моя попытка. У меня проблемы с тем, где разместить аргумент "keys".

highchart() %>%
  hc_chart(type='sankey') %>%
  hc_add_series_list(
    list(
      keys=c('from', 'to', 'weight')
    ),
    list(
      data=list(
        list(
          from='AT',
          to='DE',
          weight=10
        ),
        list(
          from='DE',
          to='CH',
          weight=5
        ),
        list(
          from='DE',
          to='FI',
          weight=5
        )
      )
    )
  )

EDIT:

Я сейчас пытаюсь сделать следующее. Все еще есть проблемы

library(highcharter)
library(tidyverse)
library(jsonlite)

dat <- data.frame(from=c('AT', 'DE', 'CH', 'DE'),
                   to=c('DE', 'CH', 'DE', 'FI'),
                   weight=c(10, 5, 15, 5)) %>%
  toJSON()

highchart() %>%
  hc_chart(type='sankey') %>%
  hc_series(dat)

Answer 1

Я использовал функцию hc_add_series (без ключей), и она заработала:

для первой попытки:

highchart() %>%
  hc_chart(type = 'sankey') %>%
  hc_add_series(
      data = list(
        list(from = 'AT', to = 'DE', weight = 10),
        list(from = 'DE', to = 'CH', weight = 5),
        list(from = 'DE', to = 'FI', weight = 5))
      )

для второй попытки:

library(highcharter)
library(tidyverse)
library(jsonlite)

dat <- data.frame(from = c('AT', 'DE', 'CH', 'DE'),
                  to = c('DE', 'CH', 'DE', 'FI'),
                  weight = c(10, 5, 15, 5)) %>%
  toJSON()

highchart() %>%
  hc_chart(type = 'sankey') %>%
  hc_add_series(data = dat)

Я надеюсь, что это может помочь:)

отредактированная заметка:

Я использую высокоуровневую версию 0.6.0 для разработки, пожалуйста, используйте: devtools::install_github("jbkunst/highcharter")