Try adjusting the following example to your data: Placing donut charts side by side using plotly in R
suppressPackageStartupMessages(invisible(
lapply(c("plotly", "dplyr"), require, character.only = TRUE)))
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"))
p <- plot_ly() %>%
add_pie(data=Share, labels = ~Categorie , values = ~Share, hole = 0.6,
name = "fig1", domain = list(x = c(0, 0.4), y = c(0.4, 1))) %>%
add_pie(data=Share, labels = ~Categorie , values = ~Share, hole = 0.6,
name = "fig2", domain = list(x = c(0.6, 1), y = c(0.4, 1))) %>%
layout(title = "Donut sub-plots", showlegend = TRUE,
font=list(family="sans serif", color="#000"),
plot_bgcolor="#f0f0f0",
legend = list(orientation = 'h',font=list(size=28)),
xaxis = list(title="", showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))
p
Created on 2021-01-21 by the reprex package (v0.3.0)
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…