使用ggplotly函数转换ggplot图

Question

我有一个闪亮的应用程序，我使用plotly包将我的ggplot图转换为动态图形。 我目前面临着这次转换的问题。

这是我的data.frame：

b <- data.frame(ID_Miseq = c(rep("P1",8), rep("P2",8), rep("P3",8), rep("P4",8)),
Condition1 = c(rep("A", 8), rep("B",16), rep("C", 8)),
Taxon = c(rep(paste0("T",1:8),4)),
Percent = sample(seq(1,25,0.1),32))

当我创建静态条形图时，没问题。

library(ggplot2)
gg <- ggplot(b, aes(x = ID_Miseq, y = Percent, fill = Taxon))
gg <- gg + geom_bar(stat = "identity", position = "stack")
factors <- "~Condition1"
gg <- gg + facet_grid(factors, scales = "free", space = "free_x")
gg

但是，当我使用plotly包中的ggplotly函数时，其中一个样本正在变成数字刻度。

library(plotly)
ggplotly(gg)

有没有人遇到过同样的问题？我使用ggplotly函数错了吗？我正在使用情节4.7.1

Answer 1

谢谢，现在已在开发版https://github.com/ropensci/plotly/commit/a0fc9c93e3b64ef4545b3522abbdfe44dc0e81a3

中修复了此问题

使用devtools::install_github("ropensci/plotly")

安装开发版