R 填充交互不使用ggplot2和plotly

我想将交互添加到我的plotly figure的fill参数中，例如回答

然而，尽管ggplot图显示正确，plotly图却不正确。我正在使用以下版本并在下面显示MWE：

ggplot2

：版本

2.0.0.9000

，

plotly

：版本

2.0.19

library(plotly)
g <- ggplot(mtcars, aes(x = factor(cyl), y = mpg, fill = interaction(factor(cyl),carb))) + geom_boxplot()
(gg <- ggplotly(g))

library（plotly）
g不是一个完整的解决方案。包括与您的
x
术语的交互：

# use lex.order to obtain correct ordered levels
a <- ggplot(mtcars, aes(x = interaction(cyl, carb, lex.order = T), y = mpg,fill = interaction(cyl, carb, lex.order = T))) + 
     geom_boxplot()
# check the plot
a
# plotly
ggplotly(a)

#使用lex.order获得正确的有序级别
a事实上，有一个替代方案可以完全满足您的需求

mtcars$intec <- interaction(factor(cyl),carb)

mtcars %>%
  plot_ly(x = cyl, y = mpg, type = "box", color = as.factor(intec), fill=as.factor(intec)) %>%
  layout(boxmode = "group")

mtcars$intec%
绘图（x=cyl，y=mpg，type=“box”，color=as.factor（intec），fill=as.factor（intec））%>%
布局（boxmode=“组”）

有解决问题的想法吗？