R - 将 ggplot 饼图转换为 plotly

Question

我在 plotly 中尝试创建相同的 ggplot 饼图时遇到问题，因为我需要 plotly 的交互式悬停功能来查看饼图段的详细信息。

由于geom_bar的存在（我的理解），它似乎会将 gpplot 饼图渲染为条形图。

我有以下代码：

g2 <- ggplot( data = DT, aes( x = 1, y = percentage, fill = as.factor( operationtype ) ) ) +
  geom_bar( width = 1, stat = "identity" ) +
  facet_wrap( ~deviceid, ncol = 1 ) +
  coord_polar(theta = "y", start=0) +
  theme(axis.title.x = element_blank(),
        axis.text.x  = element_blank(),
        axis.ticks.x = element_blank(),
        axis.title.y = element_blank(),
        axis.text.y  = element_blank(),
        axis.ticks.y = element_blank(),) + 
  labs( fill = "status" )
plot2 <- ggplotly(g2)

其中 g2 是 ggplot 饼图：

但是在执行plot2 <- ggplotly(g2) ，plot2 变成了条形图：

如何以 plotly 呈现相同的饼图？

Answer 1

最好使用plot_ly创建pie-chart ，如下所示：

# Create fake data
  df <- data.frame(
    genre=c("Pop", "HipHop", "Latin", "Jazz"), 
    values = c(33,22,25,20)
  )
    
  plot_ly(data=df,labels=~genre, values=~values, type="pie") %>% 
    layout(title = 'United States Music Genre Prevalent in 1999',
           xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
           yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))

然后使用subplot()组合多个图。