ggplotly: log参数取消轴标签

Question

我刚刚发现了一个新的ggplotly函数，它可以将ggplot2图形转换为交互式的图形可视化。这太棒了。但我也遇到了一个奇怪的效果，可能是一个bug。

如果使用log=参数更改轴比例，轴标签将消失。log="x“将导致x轴标签消失，log="y”将导致y轴标签消失，log="xy“将导致两者都消失。

如果我使用scale_x_log10()和scale_y_log10()函数而不是日志参数，也会发生同样的事情。

有解决这个问题的办法吗？

示例(y轴标签可见，x轴标签消失)：

qplot(wt, mpg, data=mtcars, colour=factor(cyl), log="x")
ggplotly()

或

qplot(wt, mpg, data=mtcars, colour=factor(cyl)) + scale_x_log10()
ggplotly()

Answer 1

如果将轴名称作为参数提供给scale_...函数，则可以获得轴名称。

qplot(wt, mpg, data=mtcars, colour=factor(cyl)) + scale_x_log10("wt")
ggplotly()

Answer 2

或者是这个？

ggplot(data = mtcars, aes(x = log10(wt), y=mpg, colour = factor(cyl))) + 
  geom_point() + 
  scale_x_continuous("wt, log10-scaling")

ggplotly()

Answer 3

也许是这样的：

gg <- ggplot(mtcars, aes(x=wt, y=mpg)) + 
  geom_point() + coord_trans(y="log10")
ggplotly(gg) %>% layout(yaxis = list(type="log", autorange=TRUE))

​

​