在情节中设置标题

Question

我与Plotly一起工作，我想在同一图片中放置四个图表。在下面，您可以看到数据

library(dplyr)
library(plotly)

df<-data.frame(
  Years = rep(2010:2020,len=22),
  Tax = rep(c("PIT","CIT","VAT"),22),
  Revenues = rep(c(200,400,100),22)
)



df$Pct<-prop.table(df$Revenues)


RevenueCompositionPCT <- plot_ly(df, x = ~Years, y = ~Pct,
                                 type = 'bar',
                                 marker = list(color = ~Revenues), name = ~Tax) %>%
  layout(title = "AA",
         yaxis = list(title = 'Percentage %'), barmode = 'stack')
RevenueCompositionPCT <- RevenueCompositionPCT %>% layout(legend = list(orientation = 'h'))           
RevenueCompositionPCT

现在我想在同一图片上的y轴上放置四个图表，并在y轴上放置四个图表。我尝试了以下代码，但无法正常工作。

p<-subplot(
  style(RevenueCompositionPCT, showlegend = FALSE,title=TRUE,titleY = TRUE),
  style(RevenueCompositionPCT, showlegend = FALSE,title=TRUE,titleY = TRUE),
  style(RevenueCompositionPCT, showlegend = FALSE,title=TRUE,titleY = TRUE),
  style(RevenueCompositionPCT, showlegend = TRUE,title=TRUE,titleX = TRUE, ),
  nrows =2,margin = 0.05) 
p

那么有人可以帮助我如何解决这个问题吗？

Answer 1

我认为，使用组合Widgets manipulateWidget 软件包的功能更容易：

library(manipulateWidget)
combineWidgets(p1, p2, p3, p4, nrow = 2)

其中p1，p2，p3，p3，p4是您的绘图。