R 在带系数的几何图形栏上应用ggplotly（）

我现在遇到了一个问题。我正在将图形转换为交互式图形。下面是一个示例代码：

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)

库（ggplot2）
图书馆（绘本）
x您的代码对我来说很好。@SBista您使用的是哪个版本？我的ggplot2是2.2.1和plotly 4.7.0。与您的有什么不同吗？我的ggplot2是2.1.1.9000，plotly版本与您的版本相同。代码对我也适用。当我更新到ploty 4.7.0时，我在您的示例中得到了相同的结果。但是，当我使用
ggplotly
时，我收到一条消息，告诉我使用ggplot2的开发版本。更新后，
ggplotly
再次处理您的示例。