我有问题用plotly再现ggplot图表。对于一堆扇区，我有5个分量（effet）分解的演化（A17）。我想得到每个部门的条形图，将该部门的所有演变并排放置。这是我数据的一个子集：
t <- structure(list(A17 = c("FZ", "GZ", "FZ", "GZ", "FZ", "GZ", "FZ",
"GZ", "FZ", "GZ"), effet = c("effetAugmentation", "effetAugmentation",
"effetDiminution", "effetDiminution", "effetEntreeA17", "effetEntreeA17",
"effetSuppression", "effetSuppression", "effetNouveaux", "effetNouveaux"
), value = c(4133.836, 5765.367, -1511.959, -1625.793, 76, 137,
-88, -247, 606, 748)), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -10L), .Names = c("A17", "effet", "value"))
这就是我用ggplot做的事情，这正是我所寻求的：
ggplot(t,aes(x=1,y=value,fill=effet)) +geom_bar(stat="identity",position="dodge")+facet_wrap(~A17)
使用plotl_ly，我可以制作一个图表：
plot_ly(t,x=~effet,y=~value,type="bar",split=~effet)
但如果我试图分面，那就出问题了。我试试这个：
t <-t %>% mutate(id = dense_rank(A17))
p <-plot_ly(t,x=~effet, y=~value,type="bar",split=~effet,xaxis=paste0("x",~id))
subplot(p,nrows=3)
但我得到的图表毫无意义。
任何帮助将不胜感激！
编辑：更新语法到4.5，它仍然不起作用