ggplot2 + plotly：軸のタイトルが消える

Question

ggplotly()〜ggplotのグラフを使用すると問題が発生します.Y軸が消えます。ここでirisデータセットを使用して再現性の例（この例は非常にダンプですが、何でも）

data(iris) 
g = ggplot(data = iris, aes(x = Petal.Length, y = Petal.Width, fill = Species)) + 
    geom_bar(stat = "identity", position = "dodge") + 
    scale_fill_manual(name = "legend", values = c("blue", "red", "green")) + 
    ylab("Y title") + 
    ylim(c(0,3)) + 
    xlab("X title") + 
    ggtitle("Main title") 
g 
ggplotly(g) 

あなたが見ることができるようだ、Y軸タイトルが消えました。

まあ、ylimが削除されても機能しますが、y制限を指定したいと思います。

私は、次の操作を実行しようとした：

data(iris) 
g = ggplot(data = iris, aes(x = Petal.Length, y = Petal.Width, fill = Species)) + 
    geom_bar(stat = "identity", position = "dodge") + 
    scale_fill_manual(name = "legend", values = c("blue", "red", "green")) + 
    scale_y_continuous(name = "Y title", limits = c(0, 3)) + 
    xlab("X title") + 
    ggtitle("Main title") 
g 
ggplotly(g) 

しかし、今では収まらない凡例のタイトルです。

マイ設定：3.2.0 R、plotly 2.0.16、ggplot2両方の例では2.0.0

はggplotによって与えられたグラフは、私が欲しいものですが、ggplotly何か他のものを与えます。回避策はありますか？

Answer 1

なぜそれが起こっているのかわかりませんが、ここでは回避策があります。それはあなたが望むものを与えるでしょう。

p <- ggplotly(g) 
x <- list(
    title = "X Title" 
) 
y <- list(
    title = "Y Title" 
) 
p %>% layout(xaxis = x, yaxis = y) 

Answer 2

私は同様の問題を抱えていました。 ggplotlyにプッシュされたggplotオブジェクトがy軸ラベルのクリッピングを示していました（Shinyアプリ内）。

これを修正するために、私はMLavoieの示唆をしましたが、私のggplotラベルとggplotlyラベルの両方がありました。この問題を解決するには、単にggplotのラベルをスペースに設定し、すべてを有効にします（何も設定しないと、プロットのラベルは軸の目盛りの値と重なります）。

p <- ggplotly(g + ylab(" ") + xlab(" ")) 
x <- list(
    title = "X Title" 
) 
y <- list(
    title = "Y Title" 
) 
p %>% layout(xaxis = x, yaxis = y)