Plotly中的子图的标题

Question

我正试图在Plotly中制作一个3x3子图的网格。我试图获得每个子情节的标题和顶部的主标题，我似乎无法让它工作。 我看到这个wonderful site用于Python，但我似乎无法找到它与R的等价物。

all <- subplot(graph1, graph2, graph3, graph4, graph5, graph6, 
graph7, graph8, graph9, nrows = 3)

这给了我想要的网格，但没有我想要的副图上的标题：

1. Graph 1 
2. Graph 2
3. Graph 3
4. Graph 4
5. Graph 5
6. Graph 6
7. Graph 7
8. Graph 8 
9. Graph 9

，默认主标题是图9。

有人可以帮忙吗？

Answer 1

您可以使用ggplot + plotly来实现它。这就是诀窍：

library(ggplot2)
library(plotly)

mtcars$main1 = "title1"
mtcars$main2 = "title2"

p1 = ggplot(mtcars, aes(x = mpg, y = cyl)) + geom_point() + facet_wrap(~main1) 
p2 = ggplot(mtcars, aes(x = disp, y = hp)) + geom_point() + facet_wrap(~main2) 

plotly::subplot(p1, p2 ,nrows = 1, margin = 0.23 ) %>% layout(title ="Main title")