collapsibleTree轻松绘制交互式结构网络图

R语言数据分析指南

发布于 2023-09-11 08:45:09

1680

发布于 2023-09-11 08:45:09

文章被收录于专栏：R语言数据分析指南

欢迎关注R语言数据分析指南

❝本节来介绍一款R包「collapsibleTree」，主要用来绘制交互式组织结构网络图使用起来非常的方便，下面小编来简单介绍下，更多详细的案例内容请参考作者官方文档。 ❞

官方文档

❝https://adeelk93.github.io/collapsibleTree/ ❞

加载R包

install.packages("collapsibleTree")
library(collapsibleTree)
library(tidyverse)

构建数据

org <- data.frame(
  Manager = c(
    NA, "Ana", "Ana", "Bill", "Bill", "Bill", "Claudette", "Claudette", "Danny",
    "Fred", "Fred", "Grace", "Larry", "Larry", "Nicholas", "Nicholas"
  ),
  Employee = c(
    "Ana", "Bill", "Larry", "Claudette", "Danny", "Erika", "Fred", "Grace",
    "Henri", "Ida", "Joaquin", "Kate", "Mindy", "Nicholas", "Odette", "Peter"
  ),
  Title = c(
    "President", "VP Operations", "VP Finance", "Director", "Director", "Scientist",
    "Manager", "Manager", "Jr Scientist", "Operator", "Operator", "Associate",
    "Analyst", "Director", "Accountant", "Accountant"
  )
)

组织结构图1

collapsibleTree(org, c("Manager", "Employee"), collapsed = FALSE)

组织结构图2

collapsibleTreeNetwork(org, attribute = "Title", collapsed = FALSE)

添加颜色

org$Color <- org$Title
org$Color <- colorspace::rainbow_hcl(16)

collapsibleTreeNetwork(
  org,
  attribute = "Title",
  fill = "Color",
  nodeSize = "leafCount",
  collapsed = FALSE
)

添加图片注释

org$tooltip <- paste0(
  org$Employee,
  "<br>Title: ",
  org$Title,
  "<br><img src='https://source.unsplash.com/collection/385548/150x100'>"
)

collapsibleTreeNetwork(
  org,
  attribute = "Title",
  fill ="Color",
  nodeSize = "leafCount",
  tooltipHtml = "tooltip",
  collapsed = FALSE
)