Я пытаюсь расположить две круговые диаграммы в один ряд, используяsubplot функция из сюжета пакета, но результирующий сюжет не то, что я ожидаю. Мне удалось сделать то же самое для линейных диаграмм и т. Д., Но я столкнулся с проблемой построения двух круговых диаграмм в одном ряду. Ниже приведен код, который у меня есть.

ds_r <- data.frame(labels = c("Baseline", "DTC", "Detailing", "Flex"),
                 values = c(63.5, 8.5, 20.6, 7.4))

ds_l <- data.frame(labels = c("Baseline"),
                 values = c(100))

plot_right <- plot_ly(ds_r, labels = labels, values = values, type = "pie") %>% 
  layout(title = "Sales - Decomposed")

plot_left <- plot_ly(ds_l, labels = labels, values = values, type = "pie") %>%
  layout(title = "Total Sales")

subplot(plot_left, plot_right, nrows = 2)

Выход

Если вы отметите красные прямоугольники внизу изображения, есть два набора осей, что означает, что есть два графика, но они, вероятно, перекрываются или что-то в этом роде.

Я хочу, чтобы на выходе были две круговые диаграммы в одном ряду без каких-либо осей. Любая помощь или направление?