在geom_bar上应用带有因子的ggplotly（）

Question

我现在遇到了plotly的问题。我正在将ggplot2图表翻译成交互式图表。这是一个示例代码：

library(ggplot2)
library(plotly)

x <- sample(x = c(1,2), size = 100, replace = TRUE)
y <- sample(x = c(3,4), size = 100, replace = TRUE)


df <- data.frame(x, y)

df <- transform(df,
                x = ifelse(x == 1,"cat","dog"),
                y = ifelse(y == 3, "young","old")
                )

p <- ggplot(df, aes(x= x, fill = y)) +
  geom_bar(position = "stack") +
  coord_flip() +
  theme(legend.position="none")

ggplotly(p)

我希望ggplotly函数能够创建一个交互式版本，但它似乎无法处理因子计数。

ggplot结果：

情节翻译：

欢迎任何解决此问题的建议！