SUNBURST

A sunburst chart, also known as a radial treemap or a ring chart, is ideal for displaying hierarchical data (a way of organizing data in a tree structure, with parent-child relationships). Each level of the hierarchy is represented by one ring or circle with the innermost circle as the top of the hierarchy. A sunburst chart without any hierarchical data (one level of categories), looks similar to a doughnut chart.

This dataset represents a hierarchical organizational structure, mapping various departments and their roles within a company. The dataset consists of three key attributes:

Position– Identifies different positions within the organization, including executives (e.g., CEO), departmental heads (e.g., HR-Manager, IT-Manager), and specialized roles (e.g., IT-Developer, Finance-Accountant). report_to – Specifies the direct reporting relationship between roles, helping to establish the hierarchy (e.g., the CEO is at the top, while managers and staff report to their respective departments). count – Represents a numerical value associated with each role, potentially indicating the number of employees in a given role or its relative importance within the organization.

The hierarchical structure follows a tree-like format, with the CEO at the top, branching into key departments such as HR, Finance, and IT. Each department further decomposes into managerial and operational roles, illustrating the chain of

library(plotly)

## Loading required package: ggplot2

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

data <- list(
  position = c("CEO", "HR", "HR-Manager", "HR-TeamLead", "HR-Staff", "Finance", 
               "Finance-Manager", "Finance-Accountant", "Finance-Analyst", "IT", "IT-Manager",
               "IT-Developer", "IT-QA"),
  reports_to = c("", "CEO", "HR", "HR", "HR", "CEO", "Finance", "Finance", "Finance", "CEO", 
                 "IT", "IT", "IT"),
  count = c(1, 1, 3, 10, 1, 1, 1, 4, 2, 1, 1, 6, 3))
data1<-data.frame(data)
data1

##              position reports_to count
## 1                 CEO                1
## 2                  HR        CEO     1
## 3          HR-Manager         HR     3
## 4         HR-TeamLead         HR    10
## 5            HR-Staff         HR     1
## 6             Finance        CEO     1
## 7     Finance-Manager    Finance     1
## 8  Finance-Accountant    Finance     4
## 9     Finance-Analyst    Finance     2
## 10                 IT        CEO     1
## 11         IT-Manager         IT     1
## 12       IT-Developer         IT     6
## 13              IT-QA         IT     3

The first position in the report_to vector is an empty string (““) .Since the CEO does not report to anyone, its corresponding report_to value is”” (empty string), indicating that it is the root node in the hierarchy.

# Create sunburst chart for organization structure
organization_sunburst <- plot_ly(data1, 
                                 ids = ~position,     
                                 labels = ~position,   
                                 parents = ~reports_to,
                                 values = ~count, 
                                 type = "sunburst")%>%
  layout(title = list(text = "Organization Structure", x = 0.5)) 

# Display the chart
organization_sunburst

id -Defines each node uniquely using the position column. labels-Labels each node with the position name parents-The reports_to column indicates which position is the parent of another position. The symbol ~ specifies that the values should be taken from the column names of the dataset.

SUNBURST CHART OF A GIVEN DATASET

The data is taken from the site given below: https://raw.githubusercontent.com/plotly/datasets/718417069ead87650b90472464c7565dc8c2cb1c/coffee-flavors.csv

This dataset is from Plotly’s GitHub repository contains information about different coffee flavors and their characteristics.

library(plotly)
df = read.csv('https://raw.githubusercontent.com/plotly/datasets/718417069ead87650b90472464c7565dc8c2cb1c/coffee-flavors.csv')

pic<-plot_ly(df,ids=df$ids,
  labels=df$labels,
  parents=df$parents,
  type="sunburst")
pic

pic<-plot_ly(df,ids=df$ids,
  labels=df$labels,
  parents=df$parents,
   maxdepth=2,
  insidetextorientation='radial',
  type="sunburst")%>%
  layout(title = list(text = "Sunburst Daigram", x = 0.5)) 

pic

*maxdepth=2 ,indicate how much we want to expand the branch (when maxdepth=2 ,only shows the first two hierarchical levels )

*insidetextorientation=‘radial’-Ensures that the text inside each segment follows a radial orientation.

*layout used to add title to sunburst chart in plotly.