circlepackeR_etc

library(remotes)
library(circlepackeR)
library(data.tree)
library(treemap)
library(readxl)
library(jsonlite)
library(tidyverse)

## -- Attaching packages ------------------------------------------------------------------------------------------------------------------------------------------------------------- tidyverse 1.2.1 --

## v ggplot2 3.1.0     v purrr   0.2.5
## v tibble  2.0.1     v dplyr   0.7.8
## v tidyr   0.8.2     v stringr 1.3.1
## v readr   1.3.1     v forcats 0.3.0

## -- Conflicts ---------------------------------------------------------------------------------------------------------------------------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter()  masks stats::filter()
## x purrr::flatten() masks jsonlite::flatten()
## x dplyr::lag()     masks stats::lag()

library(treemap)
library(sunburstR)
library(networkD3)
library(htmlwidgets)

## 
## Attaching package: 'htmlwidgets'

## The following object is masked from 'package:networkD3':
## 
##     JS

data <- read_xlsx("trainbook_80perc.xlsx", sheet = "Table")

glimpse(data)

## Observations: 217
## Variables: 7
## $ career_service <chr> "Data Science Professiol", "Data Science Profes...
## $ category_num   <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,...
## $ group_title    <chr> "Fundamentals", "Fundamentals", "Fundamentals",...
## $ area_type      <chr> "Version Control System", "AWS", "Application p...
## $ area_subtype   <chr> "GitLab", "RDS, S3, etc.", NA, "Windows and Lin...
## $ area_subtype2  <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, "Intell...
## $ value          <dbl> 1, 1, 2, 1, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 1, 1,...

data$pathString <- paste("world", 
                         data$group_title, 
                         data$area_type,
                         sep = "/")
data_node <- as.Node(data)

circlepackeR(data_node, size = "value", 
             color_min = "hsl(120,80%,80%)", 
             color_max = "hsl(240,30%,40%)")