R 将饼图插入条形图

我承认错误.实际上，不可能在x轴上以50的位置显示饼图，但如果我们可以接受将它们放在一起，那么我们可以使用domain并try 不同的值来获得subplot的正确大小和位置.

library(dplyr)
library(plotly)
library(tidyr)

d <- tibble(cat = LETTERS[1:3], val = c(25, 10, 30), total = 40)

ydomain = list(c(0.70, 1.00), c(0.35, 0.65), c(0.00, 0.30))

d %>%
  mutate(remaining = total - val) %>%
  pivot_longer(cols = c(val, remaining)) %>% 
 plot_ly(x = ~ value, y =  ~ cat, 
        type = "bar", orientation = 'h', color = ~ name, 
        colors = c("#440154FF", "#FDE725FF")) %>%
  layout(xaxis = list(title = NA),
         yaxis = list(title = NA),
         showlegend = FALSE, barmode = "stack") -> bars 

pies <- lapply(seq_len(nrow(d)), function(i) {
                plot_ly(data = d[i,], 
                        marker = list(colors = c("#440154FF", "#FDE725FF")),
                        values = ~ c(val, total - val), type = 'pie',
                        domain = list(x = c(0.5, 1), 
                                      y = ydomain[[i]]),
                        showlegend = F, hoverinfo = "none") %>% 
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))})

subplot(bars, pies[[1]], pies[[2]], pies[[3]], 
        widths = c(0.85, 0.05, 0.05, 0.05),
        margin = 0.15) %>% 
  layout(showlegend = F)