plotly::subplot 注释标题在 R Shiny 中消失

Posted

技术标签:

【中文标题】plotly::subplot 注释标题在 R Shiny 中消失【英文标题】:plotly::subplot annotations titles disappear in R Shiny 【发布时间】:2021-10-18 22:04:54 【问题描述】:

我制作了一个闪亮的应用程序,其中包括一个 interactive plot 通过ggplotlyR 中。为了将其中两个交互式绘图一起绘制,我使用了plotly::subplot。子图按预期工作正常,但是两者的标题在 Shiny 应用程序中消失了。

如何解决这个问题?

相关代码:

# Define UI for application that draws a plotlys
    options(shiny.maxRequestSize=30*1024^2)
    ui =   navbarPage("Title", theme = shinytheme("spacelab"),
                      tabPanel("Interactive Plot",
                               icon = icon("chart-area"),
                               # Show plots side by side
                               splitLayout(
                                   plotlyOutput(outputId = "Comparison_Plots"),
                                   width = "1080px",
                                   height = "1280px")))
    
    # Tell the server how to assemble inputs into outputs
    server = function(input, output) 
    
    output$Comparison_Plots = renderPlotly(
    ....
    
    fig1 = ggplotly(gg_plot1, tooltip = "text")  
    fig2 = ggplotly(gg_plot2, tooltip = "text") 
    
    # Plot them together
    sub_plot =  subplot(fig1, fig2, margin = 0.05) %>%
            layout(annotations = list(
                list(x = 0 , y = 1.1, text = "Group 1", showarrow = FALSE, xref='paper', yref='paper'),
                list(x = 1 , y = 1.1, text = "Group 2", showarrow = FALSE, xref='paper', yref='paper'))
            )
       sub_plot


    )
      

查看器窗口的快照仅显示sub_plot

sub_plot 的快照如通过Shiny app 显示的那样

【问题讨论】:

如果我从plotlyOutput 中删除heightwidth 参数,标题会重新出现,但是我无法调整绘图的大小。 【参考方案1】:

你必须增加layout的上边距:

  layout(
    annotations = list(
      list(x = 0.2 , y = 1.1, text = "Title 1", showarrow = FALSE, 
           xref = 'paper', yref = 'paper'),
      list(x = 0.8 , y = 1.1, text = "Title 2", showarrow = FALSE, 
           xref = 'paper', yref = 'paper')
    ),
    margin = list(l = 50, r = 50, b = 50, t = 100)
  )

【讨论】:

以上是关于plotly::subplot 注释标题在 R Shiny 中消失的主要内容,如果未能解决你的问题,请参考以下文章

在 R Shiny 中调整 Plotly::subplot 的高度和宽度

plotly::subplot 不显示两个标题

在 plotly::subplot 中显示所有情节标题

notepad++批量删除注释

快速删除注释

python中去掉文件的注释