如何在R中使用plotly绘制嵌套饼图？

Question

我正在尝试绘制嵌套饼图，但输出并未反映现实。

比方说：

library('plotly')
library('dplyr')

data <- data.frame(c('cat', 'dog', 'deer','chicken', 'cat', 'dog','duck', 'monkey', 'fish','cow','horse','dog'),c('US', 'US', 'US','US', 'UK', 'UK','UK', 'UK','China','China','China','China'),c(15,70,120,55,47,300,89,62,40,27,103,8))
colnames(data) <- c('animal', 'country', 'total_num')

p <- plot_ly(data) %>% add_pie(labels = ~animal, values = ~total_num, type = 'pie', hole = 0.7, sort = F) %>% add_pie(data, labels = ~country, values = ~total_num, domain = list(x = c(0.15, 0.85),y = c(0.15, 0.85)),sort = F)

p

生成的饼图具有误导性，因为它应该根据每个国家/地区进行动物分布，但分布应该取决于国家/地区。但所显示的饼图显示的是个体分布。我很难用情节来使用它。

任何建议或帮助将非常感激。

谢谢！

Answer 1

让我们忽略整个问题，如果我们应该回答如何创建嵌套饼图。

您可以创建两个饼图，外部图表是圆环图，即通过设置hole = 0.7，内部图表是已设置domain.

library('plotly')
library('dplyr')

data <- data.frame(c('cats', 'monkeys', 'dogs'), c(30, 10, 20), c(20, 10, 10))
colnames(data) <- c('animal', 'street', 'home')

p <- plot_ly(data) %>%
  add_pie(labels = ~animal, values = ~street, type = 'pie', hole = 0.7, sort = F) %>%
  add_pie(data, labels = ~animal, values = ~home, 
          domain = list(
            x = c(0.15, 0.85),
            y = c(0.15, 0.85)),
          sort = F)
p