geom_GeomLabelRepel() has yet to be implemented in plotly

pie chart

df_2 <- data.frame(value = c(15, 25, 32, 28),
group = paste0("G", 1:4))

Get the positions

df2 <- df_2 %>%
mutate(csum = rev(cumsum(rev(value))),
pos = value/2 + lead(csum, 1),
pos = if_else(is.na(pos), value/2, pos))

label_piechart <- ggplot(df, aes(x = "" , y = value, fill = fct_inorder(group))) +
geom_col(width = 1, color = 1) +
coord_polar(theta = "y") +
scale_fill_brewer(palette = "Pastel1") +
geom_label_repel(data = df2,
aes(y = pos, label = paste0(value, "%")),
size = 4.5, nudge_x = 1, show.legend = FALSE) +
guides(fill = guide_legend(title = "Group")) +
theme_void()

ggplotly(label_piechart)

首先复现所提供的饼图示例，并跟踪 ggplotly() 对 geom_label_repel 和 geom_GeomLabelRepel() 的处理。将生成的输出与 ggplot 图表进行比较；当这一几何对象在 plotly 中实现且标签按预期渲染时，即表示完成。