R 绘图：并排的条形图和饼图

我想使用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)

动物让我们试试这个-

library（plotly）
#样本数据
动物