子图隐藏着标题以及X和Y图的闪亮

Question

我在闪亮的应用程序上有一些图。 我用情节向他们展示。请查看我的代码的一部分。 如您所见，我为每个图添加了标题，X轴和Y轴标签。但是，当我通过“子图”合并它们时，它隐藏了标签。我需要在页面上同时显示所有图。 我该如何解决？

#UI section
plotlyOutput("fancyPlot")

#Server side
 output$fancyPlot <- renderPlotly({
# I got E somehow, its my dataset 
#I didnt write the lines which I got the other vectors and variables like group1_vectors
for (i in 1: length(s)){
 plot1 = ggplot(E, aes(x = group1 , y = group2)) + 
                labs(title= gene_vectors[i],
                     x= group1_vectors[i], y = group2_vectors[i])+
                geom_point(color='tomato')
              
plot_list_final[[i]] = plot1
}

 plot_list_final =  do.call(tagList, plot_list_final)
            f = length(s)
            p_last <- subplot(plot_list_final[1:f],  nrows = f, margin = 0.045) %>%
              layout(title = "Plots of selected TFs")
            # p_last = p_last + coord_fixed(ratio = 1, xlim = NULL, ylim = NULL, expand = TRUE, clip = "on")
            dev.off()
            
            return(p_last) 
})