在 plotly 饼图中设置标签的位置

Question

我正在尝试弄清楚如何更改饼图中标签的文本位置或使其更具可读性（？）。 以下是示例和可重现代码的屏幕截图：

df <- data.frame(Gruppierung = c("Very long label", "Very very long label", "Long label", "Short label", "Long label / long label"), 
                     freq = c(3.1, 6.2, 8.7, 20, 21))

library(plotly)                                                                                                                                                                       
plot_ly(df, labels=~Gruppierung,values=~freq, marker = list(line = list(color = '#FFFFFF', width = 1)), type="pie",
        textposition = 'auto',textinfo = 'text',
        hoverinfo = 'text',source = "subset",
        text=~paste(sub(" ","<br>",Gruppierung),":","<br>",paste0(freq,"%") ),
        insidetextfont = list(color = '#FFFFFF')) %>%
  layout(showlegend = FALSE,separators = ',.') %>% config(displayModeBar = F)

我的问题（我想要达到的目标）：

如果Label不能水平匹配它所在的空间，那么它应该定位在饼图之外

感谢您的帮助！

[!!]@Saurabh Chauhan 建议的方法非常好，但不幸的是它不会每次都匹配，下面是一个屏幕截图，即使在高频率的情况下也可以显示问题一些标签不是水平的：

Answer 1

最简单的方法是检查freq。如果freq 小于某个值，例如less than 5%，则标签应位于外部，如下所示：

plot_ly(df, labels=~Gruppierung,values=~freq, marker = list(line = list(color = '#FFFFFF', width = 1)), type="pie",
    textposition = ifelse(df$freq<5,"outside","inside"),textinfo = 'text',
    hoverinfo = 'text',source = "subset",
    text=~paste(sub(" ","<br>",Gruppierung),":","<br>",paste0(freq,"%") ),
    insidetextfont = list(color = '#FFFFFF')) %>%
    layout(showlegend = FALSE,separators = ',.') %>% config(displayModeBar = F)

工作演示的屏幕截图：

更新

另一个结果（当freq<10）：