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
通过ggplotly
在R
中。为了将其中两个交互式绘图一起绘制,我使用了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
中删除height
和width
参数,标题会重新出现,但是我无法调整绘图的大小。
【参考方案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 中消失的主要内容,如果未能解决你的问题,请参考以下文章