如何在R中做嵌套饼图，其中外环数据是内环的子集？

Question

有人问过类似的问题，但没有得到回答。我需要一个饼图，一个嵌套的饼图，它的外部值是内部值的子集。

例如，我有一个简单的 CD 数据表，其中包含我在过去一年中购买的 CD，我希望饼图显示乐队所在的每个大陆的 CD 数量以及外环，以便显示每个国家的各个国家来自特定大陆的乐队。

内部饼图的悬停数据是正确的，但外圈的数据具有误导性。例如，在 40 个欧洲 CD 中，德国拥有 15 个 CD，但德国的百分比声称为 8.62%。德国的百分比对总 100% 是正确的，但相对于今年购买的 40 张欧洲 CD，德国是 37.5%

我不知道如何更改数据框以提供这些数字或如何巧妙地做到这一点。

这是我原始数据集的一个样本：

    Artist   Album  Year    Country Continent
1   Myrath  Legacy  2016    Tunisia Asia
2   Myrath   Sands  2011    Tunisia Asia
3   Orphaned Shalem 2011    Israel  Asia
4   Orphaned Unsung 2018    Israel  Asia

饼图呈现为：

output$bandChart <- renderPlotly({



        plot_ly(freefilter() ,labels = ~Country, values = ~AlbumCount,
               showlegend = FALSE
                ) %>%

        add_pie(hole = 0.6,
                textinfo = 'label',
                textposition = 'inside',
                insidetextfont = list(color = '#FFFFFF'),
                marker = list(line = list(color = '#FFFFFF', width = 1)),
                direction = 'clockwise',
                sort = FALSE,
                text = ~paste(Country, AlbumCount),
                hoverinfo = 'text + percent') %>%

        add_pie(freefilter(),labels = ~Continent, values = ~AlbumCount,
                textinfo = 'label',
                textposition = 'inside',
                direction = 'clockwise',
                sort = FALSE,
                name = "Continent Data,
                marker = list(line = list(color = '#FFFFFF', width = 1)),
                domain = list(x = c(.2, 0.8), y = c(0.2, .8))

                        ) %>%

              config (collaborate = FALSE, displaylogo = FALSE ) %>%

             layout(title = "Band Locations",
               xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
               yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
               autosize = FALSE)
    })

我使用的是闪亮的，没有包含这些代码部分。

谢谢

Answer 1

听起来你想用你自己的覆盖情节悬停文本。您可以通过自己指定并使用它来解决此问题。

library(dplyr)
library(gapminder)

# Example data from gapminder, which happens to have countries and continents
worldpop_share = gapminder %>%
  # Let's just use the last year of data, I think 2007
  filter(year == max(year)) %>%
  # We only need country, continent, and population
  select(country, continent, pop) %>%

  # Make a grouping for the rows related to each continent
  group_by(continent) %>%
  # and calc that row's (country's) share of it's continent's population
  mutate(share_of_cont = pop / sum(pop %>% as.numeric)) %>%
  ungroup()  # This is just to tidy up so our table isn't grouped anymore

然后在您的add_pie 通话中使用类似的内容：

# This could replace the current plotly text, which has plotly calculate the percentage, which seems to be happening for the whole and not at the continent level.
text = ~paste(Country, share_of_cont)

更多： https://plot.ly/r/text-and-annotations/