How Can We Plot Highcarts Organization Chart In R Language?

We are trying to plot this organization chart from https://www.highcharts.com/docs/chart-and-series-types/organization-chart in R language We have build this plot with highcharter

Solution 1:

Here you have a sample code:

library(highcharter)

highchart() %>%
  hc_chart(type ='organization', inverted =TRUE) %>%
  hc_title(text ='Highcharts Org Chart') %>%
  hc_add_series(
    name ='Highsoft',
    data = list(
      list(from='Shareholders', to='Board'),
      list(from='Board', to='CEO'),
      list(from='CEO', to='CTO'),
      list(from='CEO', to='CPO'),
      list(from='CEO', to='CSO'),
      list(from='CEO', to='CMO'),
      list(from='CEO', to='HR'),
      list(from='CTO', to='Product'),
      list(from='CTO', to='Web'),
      list(from='CSO', to='Sales'),
      list(from='CMO', to='Market')
    ),
    levels = list(
      list(level =0, color ='silver', dataLabels = list(color ='black'), height =55),
      list(level =1, color ='silver', dataLabels = list(color ='black'), height =55),
      list(level =2, color ='#980104'),
      list(level =4, color ='#359154')
    ),
    nodes = list(
      list(id ='Shareholders'),
      list(id ='Board'),
      list(id ='CEO', title ='CEO', name ='Grethe Hjetland', image ='https://wp-assets.highcharts.com/www-highcharts-com/blog/wp-content/uploads/2018/11/12132317/Grethe.jpg'),
      list(id ='HR', title ='HR/CFO', name ='Anne Jorunn Fjarestad', color ='#007ad0', image ='https://wp-assets.highcharts.com/www-highcharts-com/blog/wp-content/uploads/2018/11/12132314/AnneJorunn.jpg', column=3, offset='75%'),
      list(id ='CTO', title ='CTO', name ='Christer Vasseng', color ='#007ad0', image ='https://wp-assets.highcharts.com/www-highcharts-com/blog/wp-content/uploads/2018/11/12140620/Christer.jpg', column=4, layout ='hanging'),
      list(id ='CPO', title ='CPO', name ='Torstein Honsi', image ='https://wp-assets.highcharts.com/www-highcharts-com/blog/wp-content/uploads/2018/11/12131849/Torstein1.jpg', column=4),
      list(id ='CSO', title ='CSO', name ='Anita Nesse', image ='https://wp-assets.highcharts.com/www-highcharts-com/blog/wp-content/uploads/2018/11/12132313/Anita.jpg', column=4, layout ='hanging'),
      list(id ='CMO', title ='CMO', name ='Vidar Brekke', image ='https://wp-assets.highcharts.com/www-highcharts-com/blog/wp-content/uploads/2018/11/13105551/Vidar.jpg', column=4, layout ='hanging'),
      list(id ='Product', name ='Product developers'),
      list(id ='Web', name ='Web devs, sys admin'),
      list(id ='Sales', name ='Sales team'),
      list(id ='Market', name ='Marketing team')
    ),
    colorByPoint =TRUE,
    color ='#007ad0',
    dataLabels = list(color ='white'),
    borderColor ='white',
    nodeWidth =65
  ) %>%
  hc_tooltip(outside =TRUE)

You can see the R structure. If you want to use JavaScript code in it, you can use JS() method. More examples of Highcharts in R (with JS() method) you can find in my StackOverflow profile in 'Answers' tab.

Let me know if you have further questions.

edit: some properties (like color) don't work in Highcharter wrapper. I suggest creating a GitHub ticket on Highcharter repo: https://github.com/jbkunst/highcharter/issues Maybe the author of the wrapper will know more.