使用Plotly绘制Treemap树形图出现空白界面问题

问题重现 #

使用R的Plotly绘制树形图时，运行代码后返回空白界面，原代码及数据集如下：

dados <- data.frame(
    Marca = c("Chevrolet", "Chevrolet", "Chevrolet", "Chevrolet", "Chevrolet", "Fiat", "Fiat", "Fiat", "Fiat", "Fiat", "Fiat", "Fiat", "Ford", "Ford", "Ford", "Ford", "Ford", "Ford", "Honda", "Honda", "Hyundai", "Hyundai", "JAC", "Renault", "Renault", "Renault", "Renault", "Renault", "Volkswagen", "Volkswagen", "Volkswagen", "Volkswagen", "Volkswagen", "Volkswagen"),
    Carro = c("celta", "fox", "montana", "onix", "s10", "agile", "bravo", "cruze", "punto", "siena", "strada", "uno", "ecosport", "focus", "idea", "ka", "palio", "ranger", "city", "fit", "hb20", "tucson", "j3", "clio", "duster", "fluence", "logan", "sandero", "crossfox", "gol", "jetta", "polo", "saveiro", "voyage"),
    Quantidade = c(483, 609, 119, 144, 117, 389, 137, 147, 397, 371, 146, 185, 93, 217, 240, 195, 134, 34, 234, 134, 149, 304, 92, 300, 186, 242, 439, 608, 132, 618, 130, 217, 75, 315)
)

treemap <- plot_ly(
    data = dados,
    type = "treemap",
    labels = ~Carro,
    parents = ~Marca,
    values = ~Quantidade
)

treemap

问题原因 #

Plotly的treemap要求层级结构中的父节点必须在数据集中单独作为一行存在。原数据仅包含子节点（车型），没有父节点（品牌）的条目，Plotly无法识别完整的树形层级，因此无法渲染出图形。

解决方法 #

需要先为每个品牌添加一行父节点数据，父节点的parents设为NA（表示顶级节点），values设为该品牌的总销量，再将父节点数据与原数据合并。

修正后的代码 #

# 加载必要包
library(plotly)
library(dplyr)

# 原数据集
dados <- data.frame(
    Marca = c("Chevrolet", "Chevrolet", "Chevrolet", "Chevrolet", "Chevrolet", "Fiat", "Fiat", "Fiat", "Fiat", "Fiat", "Fiat", "Fiat", "Ford", "Ford", "Ford", "Ford", "Ford", "Ford", "Honda", "Honda", "Hyundai", "Hyundai", "JAC", "Renault", "Renault", "Renault", "Renault", "Renault", "Volkswagen", "Volkswagen", "Volkswagen", "Volkswagen", "Volkswagen", "Volkswagen"),
    Carro = c("celta", "fox", "montana", "onix", "s10", "agile", "bravo", "cruze", "punto", "siena", "strada", "uno", "ecosport", "focus", "idea", "ka", "palio", "ranger", "city", "fit", "hb20", "tucson", "j3", "clio", "duster", "fluence", "logan", "sandero", "crossfox", "gol", "jetta", "polo", "saveiro", "voyage"),
    Quantidade = c(483, 609, 119, 144, 117, 389, 137, 147, 397, 371, 146, 185, 93, 217, 240, 195, 134, 34, 234, 134, 149, 304, 92, 300, 186, 242, 439, 608, 132, 618, 130, 217, 75, 315)
)

# 计算每个品牌的总销量，生成父节点数据
marca_totais <- dados %>%
    group_by(Marca) %>%
    summarise(Quantidade = sum(Quantidade)) %>%
    mutate(Carro = Marca, parents = NA) %>%
    select(labels = Carro, parents, values = Quantidade)

# 处理子节点数据，匹配treemap的参数格式
carro_dados <- dados %>%
    mutate(parents = Marca) %>%
    select(labels = Carro, parents, values = Quantidade)

# 合并父节点和子节点数据
treemap_dados <- rbind(marca_totais, carro_dados)

# 绘制treemap
treemap <- plot_ly(
    data = treemap_dados,
    type = "treemap",
    labels = ~labels,
    parents = ~parents,
    values = ~values
)

treemap

说明 #

• 父节点数据中，labels为品牌名，parents设为NA代表顶级节点，values是该品牌所有车型的销量总和
• 子节点数据中，labels为车型名，parents为对应的品牌名，values为该车型的销量
• 合并后的数据包含完整的层级结构，Plotly可以正确渲染树形图

内容的提问来源于stack exchange，提问作者Radupi