テキストレイヤはggplotで動作しますが、ggplotlyで削除されました

Question

テキストレイヤ付きのバープロットがあり、ggplotライブラリでうまくいきましたが、今はggplotlyに対話性を追加したいのですが、テキストレイヤを表示できません パッケージが、問題はここで

df = read.table(text = " 
id year type amount 
       1 1991 HIIT  22 
       2 1991 inter 144 
       3 1991 VIIT  98 
       4 1992 HIIT  20 
       5 1992 inter 136 
       6 1992 VIIT 108 
       7 1993 HIIT  20 
       8 1993 inter 120 
       9 1993 VIIT 124 
       10 1994 HIIT  26 
       11 1994 inter 118 
       12 1994 VIIT 120 
       13 1995 HIIT  23 
       14 1995 inter 101 
       15 1995 VIIT 140 
       16 1996 HIIT  27 
       17 1996 inter 103 
       18 1996 VIIT 162 
       19 1997 HIIT  24 
       20 1997 inter  96 
       21 1997 VIIT 172 
       22 1998 HIIT  24 
       23 1998 inter  92 
       24 1998 VIIT 177 
       25 1999 HIIT  28 
       26 1999 inter  45 
       27 1999 VIIT 220 
       28 2000 HIIT  26 
       29 2000 inter  36 
       30 2000 VIIT 231", header = TRUE, sep = "") 

df %>% 
    group_by(year) %>% 
    mutate(type = factor(type, levels = c("inter", "VIIT", "HIIT"))) %>% 
    mutate(ratio = amount/sum(amount)) %>% 
    ggplot(aes(x = factor(year), y = ratio, fill = type)) + 
    geom_bar(stat = "identity") + 
    geom_text(aes(label = percent(ratio)), position = position_stack(vjust = 0.5), size = 4) + 
    scale_y_continuous(name="", labels = percent) + 
    coord_flip() + 
    xlab("Pourcentage") + 
    ggtitle("Répartition des types par année") + 
    theme(plot.title = element_text(hjust = 0.5)) + 
    theme_minimal()-> gg 

ggplotly(gg) 

を持続し、私はggplot2とし、plotly得るものです：

Plotly（plotlyツールバーを削除することが可能ですか？）

ggplotのマイ・グラフィックはokですが、ggplotlyで動かないのですが解決できますか？ 私の2番目の質問は、プロンプトでツールバーを削除することが可能ですか（マウスでのみグラフィックを調整できるためです）。

おかげであなたの助け

Answer 1

ため ありがとうございます問題はバグのように見えます

gp <- ggplotly(gg) 
for (x in 4:6) 
    gp$x$data[[x]]$x <- 1-gp$x$data[[x]]$x 
gp$x$config$displayModeBar <- FALSE 
gp 

を行うことができます。たぶんあなたはGithubにファイルしたいと思うかもしれません。