install.packages('plotly')

library(plotly)
fig <- plot_ly(#定义所有级别各类的标签labels = c("Eve", "Cain", "Seth", "Enos", "Noam", "Abel", "Awan", "Enoch", "Azura"),#定义所有级别各类的父级，与上面定义的标签一一对应parents = c("", "Eve", "Eve", "Seth", "Seth", "Eve", "Eve", "Awan", "Eve"),#定义各分类的值（一一对应）values = c(10, 14, 12, 10, 2, 6, 6, 4, 4),#指定图表类型：sunbursttype = 'sunburst'
)
#输出
fig

library(plotly)
fig <- plot_ly(labels = c("Eve", "Cain", "Seth", "Enos", "Noam", "Abel", "Awan", "Enoch", "Azura"),parents = c("", "Eve", "Eve", "Seth", "Seth", "Eve", "Eve", "Awan", "Eve"),values = c(65, 14, 12, 10, 2, 6, 6, 4, 4),type = 'sunburst',#设置子级的值：total。也就是子级的图形长度与 其值与父级的值的比例 成正比。#注意之前那张图里没有设定这个，父级'Seth'及其子级'Noam'和'Enos'就不符合这个设定branchvalues = 'total'
)
fig

library(plotly)
d <- data.frame(#定义id，，可以理解为主键ids = c("North America", "Europe", "Australia", "North America - Football", "Soccer","North America - Rugby", "Europe - Football", "Rugby","Europe - American Football","Australia - Football", "Association","Australian Rules", "Autstralia - American Football", "Australia - Rugby","Rugby League", "Rugby Union"),#定义标签，即显示的文本。这里面的 <br> 是HTML的语法，表示换行labels = c("North<br>America", "Europe", "Australia", "Football", "Soccer", "Rugby","Football", "Rugby", "American<br>Football", "Football", "Association","Australian<br>Rules", "American<br>Football", "Rugby", "Rugby<br>League","Rugby<br>Union"),#定义父级parents = c("", "", "", "North America", "North America", "North America", "Europe","Europe", "Europe","Australia", "Australia - Football", "Australia - Football","Australia - Football", "Australia - Football", "Australia - Rugby","Australia - Rugby"),stringsAsFactors = FALSE
)
fig <- plot_ly(d, ids = ~ids, labels = ~labels, parents = ~parents, type = 'sunburst')fig

df = read.csv('https://raw.githubusercontent.com/plotly/datasets/718417069ead87650b90472464c7565dc8c2cb1c/coffee-flavors.csv')
fig <- plot_ly()
fig <- fig %>% add_trace(type='sunburst',ids=df$ids,labels=df$labels,parents=df$parents,#设置最大深度为2，也就是最多只展示两级maxdepth=2,#控制扇区内文本的方向，这里设置为radial（径向的）insidetextorientation='radial'
)
fig

library(plotly)
d1 <- read.csv('https://raw.githubusercontent.com/plotly/datasets/master/coffee-flavors.csv')
d2 <- read.csv('https://raw.githubusercontent.com/plotly/datasets/718417069ead87650b90472464c7565dc8c2cb1c/sunburst-coffee-flavors-complete.csv')
fig <- plot_ly()
fig <- fig %>%#添加轨迹，相当于ggplot2的图层geom。这里是定义子图1add_trace(ids = d1$ids,labels = d1$labels,parents = d1$parents,#定义轨迹的类型：sunbursttype = 'sunburst',maxdepth = 2,#子图1放在第1列（plotly以0开始计数）domain = list(column = 0))
fig <- fig %>%#子图2add_trace(ids = d2$ids,labels = d2$labels,parents = d2$parents,type = 'sunburst',maxdepth = 3,#子图放在第2列domain = list(column = 1))
fig <- fig %>%#定义样式layout(#网格：2列1行grid = list(columns =2, rows = 1),margin = list(l = 0, r = 0, b = 0, t = 0),#颜色sunburstcolorway = c("#636efa","#EF553B","#00cc96","#ab63fa","#19d3f3","#e763fa", "#FECB52","#FFA15A","#FF6692","#B6E880"),extendsunburstcolors = TRUE)
fig