Я следил за диаграммами anser Donut с ggplot в этой ссылке и пытался отобразить пончик с помощью ggplotly.
library(ggplot2)
library(svglite)
library(scales)
library(plotly)
# dataframe
Sex = c('Male', 'Female')
Number = c(125, 375)
df = data.frame(Sex, Number)
df
donut <- ggplot(df, aes(x = 2, y = Number, fill = Sex)) +
geom_col(position = "stack", width = 1) +
geom_text(aes(label = percent(Number/sum(Number))), position = position_stack(vjust = 0.75), size = 3) +
xlim(0.5, 2.5) +
ggtitle("Participants by Sex")
donut
pl_donut <- donut +
coord_polar("y") +
theme_void() +
theme(legend.position="top")
pl_donut #still fine
ggplotly(pl_donut) #not ok
Но это не работает. Есть какие-нибудь подсказки, что я делаю не так?