Я хочу построить две круговые диаграммы на одном и том же участке. Ниже вы можете увидеть мои данные:
library(plotly)
library(dplyr)
library(grid)
Share<- structure(list(Y = c(2018, 2018, 2019, 2019), Categorie = c("Before","After", "Before","After"), Share = c(1.0,99., 3, 97)), row.names = c(NA,-4L), class = c("tbl_df", "tbl", "data.frame"))
Я пытаюсь использовать эти строки кода, но не могу найти решения.
fig1 <- plot_ly(Share, labels = ~Categorie , values = ~Share, type = 'pie')
fig2 <- plot_ly(Share, labels = ~Categorie , values = ~Share, type = 'pie')
PLOT<-subplot(fig1,fig2,nrows=2,margin = 0.05)
Так может ли кто-нибудь помочь мне, как решить эту проблему и построить график, как на картинке ниже, но с кольцевыми диаграммами: