R中的HighCharts Sankey图

本文介绍了R中的HighCharts Sankey图的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

我想使用R中的highcharter库创建一个sankey图.通常，我只能查看该图的javascript代码并将其转换为R，但是对于sankey图，我遇到了一些麻烦.我想从创建这样的东西开始: jsfiddle/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: jsfiddle/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")