r - 更改 plotly 中使用的分位数计算方法

Question

我试图了解如何处理 ggplotly 分位数计算方法。

    vec <- c(9.56630105983885, 9.2478753964443, 10.0860135756819, 8.61391863126551, 
    9.94710349615399, 7.14660035433632, 8.22017617694062, 10.0666294326466, 
    9.35484039252854, 12.5410005237513, 12.5687999720704, 9.91564647202826, 
    7.55332442693865, 11.2588496810078, 10.9914482049276, 11.9021198944421, 
    6.3190685543082, 9.22657465466812, 11.216871586139, 12.2549168985367
    )
library(tidyverse)
quantile( vec, c(1, 2.5, 5, 10, 25, 50, 75, 90, 95, 97.5, 99)/100, na.rm = TRUE ) %>%
    t() %>%
    as.data.frame() %>%
    mutate_if( is.numeric, round, 3)

这是我可以计算的分位数

     1%  2.5%    5%   10%   25%   50%    75%    90%    95%  97.5%    99%
1 6.476 6.712 7.105 7.513 9.073 9.931 11.227 12.284 12.542 12.556 12.564

geom_boxplot有相同的结果

p <-data.frame(x=vec) %>% 
 ggplot(aes(1,x)) +
        geom_boxplot() +
        coord_flip() +
        xlab( "" ) +
        theme( axis.text.y = element_blank() )
ggplot_build(p)$data

较低的是9.073

但plotly不要使用相同的方法：

ggplotly(p)

较低的是现在8.92

我需要在 ggplotly 输出和分位数表之间获得一致的结果。如何更改 plotly 使用的计算方法？