R中的HighCharts Sankey图 [英] HighCharts Sankey Diagram in R

问题描述

我想使用R中的highcharter库创建一个sankey图.通常，我只能查看该图的javascript代码并将其转换为R，但是对于sankey图，我遇到了一些麻烦.我想从创建这样的东西开始: http://jsfiddle.net/highcharts/z2rL672w/3/

I'd like to create a sankey diagram using the highcharter library in R. Usually I'm just able to look at the javascript code for the plot and translate it for R, but for sankey plots I'm having some trouble. I'd like to just start by creating something like this: http://jsfiddle.net/highcharts/z2rL672w/3/

到目前为止，这是我的尝试.我在哪里放置"keys"参数时遇到了麻烦.

Here's my attempt so far. I'm having trouble where to place the "keys" argument.

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
        )
      )
    )
  )

我现在正在尝试以下方法.仍然有麻烦

I'm now trying the following. Still having a bit of trouble

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)

推荐答案

我使用了功能hc_add_series(不带键)，并且有效:

I used the function hc_add_series (without keys) and it worked:

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)

我希望可以帮到忙:)

我使用highcharter的开发版本0.6.0，要安装它，请使用:devtools::install_github("jbkunst/highcharter")

I use a development version 0.6.0 of highcharter, to install it please use: devtools::install_github("jbkunst/highcharter")

这篇关于R中的HighCharts Sankey图的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！