Plotly：棒グラフと円グラフを並べて表示

Question

Rのplotlyパッケージのsubplot機能を使用して、棒グラフと円グラフを並べて表示したいのですが、大きな円グラフがグラフ、バープロットをオーバーレイします。

Animals <- c("giraffes", "orangutans", "monkeys") 
SF_Zoo <- c(20, 14, 23) 
LA_Zoo <- c(12, 18, 29) 
data <- data.frame(Animals, SF_Zoo, LA_Zoo) 

bar <- plot_ly(data, x = ~Animals, y = ~SF_Zoo, type = 'bar') %>% 
    layout(yaxis = list(title = 'Count'), barmode = 'stack') 

pie <- plot_ly(data, labels = ~Animals, values = ~LA_Zoo, type = 'pie', hole = 0.6) 

subplot(bar, pie) 

私はそれをどのように修正することができます：ここでは

は、サンプルコードのですか？

Answer 1

のは、これを試してみましょう -

library(plotly) 

#sample data 
Animals <- c("giraffes", "orangutans", "monkeys") 
SF_Zoo <- c(20, 14, 23) 
LA_Zoo <- c(12, 18, 29) 
data <- data.frame(Animals, SF_Zoo, LA_Zoo) 

#plot 
plot_ly(data, x = ~Animals, y = ~SF_Zoo, type = 'bar') %>% 
    layout(yaxis = list(title = 'Count'), xaxis = list(domain = c(0, 0.5)), barmode = 'stack') %>% 
    add_trace(data, labels = ~Animals, values = ~LA_Zoo, type = 'pie', hole = 0.6, 
      domain = list(x = c(0.5, 1)))