R语言Plotly嵌套饼图构建问题：数据帧报错与类别错位

一、先搞定数据关联（关键前提） #

首先得把Sub.Category和对应的Category绑定好，不然后续绘图肯定会错位。假设你的category_values有Category和total_sales_category两列；如果sub_category_values没有Category列，先从原salesData里把对应关系补上：

library(dplyr)

# 补全sub_category_values的Category字段（如果没有的话）
sub_category_values <- salesData %>%
  group_by(Category, Sub.Category) %>%
  summarise(total_sales_subcategory = sum(Sales), .groups = "drop")

# 从子类数据聚合得到大类数据，不用单独维护category_values
category_values <- sub_category_values %>%
  group_by(Category) %>%
  summarise(total_sales_category = sum(total_sales_subcategory), .groups = "drop")

这样处理后，每个Sub.Category都明确属于某个Category，从根源避免错位问题。

二、正确绘制嵌套饼图（别用subplot拼） #

直接在同一个Plotly对象里加两个饼层，用domain参数控制内外大小，比subplot靠谱多了，还能保证对应关系：

library(plotly)

# 外层饼图：Category级别
fig <- plot_ly(data = category_values) %>%
  add_pie(
    labels = ~Category,
    values = ~total_sales_category,
    name = "大类",
    domain = list(x = c(0.1, 0.9), y = c(0.1, 0.9)),
    hole = 0.6, # 挖空中间放内层
    textinfo = "label+percent"
  ) %>%
  # 内层饼图：Sub.Category级别，自动关联所属Category
  add_pie(
    data = sub_category_values,
    labels = ~Sub.Category,
    values = ~total_sales_subcategory,
    name = "子类",
    domain = list(x = c(0.3, 0.7), y = c(0.3, 0.7)),
    textinfo = "label+value",
    textposition = "inside"
  ) %>%
  layout(
    title = "销售分类嵌套饼图",
    showlegend = TRUE,
    annotations = list(
      list(text = "大类", x = 0.5, y = 0.95, showarrow = FALSE),
      list(text = "子类", x = 0.5, y = 0.05, showarrow = FALSE)
    )
  )

fig

三、针对性解决你遇到的两个问题 #

1. add_pie报错找不到total_sales_in_subcategory：

   • 多半是调用add_pie时没指定data参数，或者字段名拼写错误。比如内层饼图要明确指定data = sub_category_values，同时values要对应数据帧里的正确列名（比如~total_sales_subcategory）。

2. subplot合并后子类别错位：

   • 两个独立饼图没有Category的关联，Plotly只会按顺序匹配颜色/位置，自然会乱。要么用上面的双饼层方式，要么硬要用subplot的话，得给两个饼图都指定color = ~Category，确保同大类颜色一致，同时手动调整两个饼图的domain范围，避免重叠错位。

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