删除Plotly中图表之间的间隙
我将图表的大小配置为闪亮,但图表之间仍有空白区域 它们在配置高度和宽度之前显示为旧区域 这是我的密码删除Plotly中图表之间的间隙,plot,shiny,plotly,r-plotly,Plot,Shiny,Plotly,R Plotly,我将图表的大小配置为闪亮,但图表之间仍有空白区域 它们在配置高度和宽度之前显示为旧区域 这是我的密码 plot1_reactive <- eventReactive(input$submit_but,{ xaxis <- list( tickformat = "%-d/%-m/%Y", type='category' ) yaxis <
plot1_reactive <- eventReactive(input$submit_but,{
xaxis <- list(
tickformat = "%-d/%-m/%Y",
type='category'
)
yaxis <- list(title = input$sel_par1)
r <- plot_ly(mydata,x=date,y = a , type = 'scatter', mode = 'lines+markers'
, width = 950, height = 200,line = list(shape = "linear"))%>%
layout(xaxis = xaxis, yaxis = yaxis)
})
plot2_reactive <- eventReactive(input$submit_but,{
xaxis <- list(
tickformat = "%-d/%-m/%Y",
type='category')
yaxis <- list(title = input$sel_par2)
r <- plot_ly(mydata,x=date,y = b , type = 'scatter', mode = 'lines+markers'
, width = 950, height = 200,line = list(shape = "linear"))%>%
layout(autosize = F,xaxis = xaxis, yaxis = yaxis)
})
plot1\u reactive欢迎来到stackoverflow
您需要设置plotlyOutput
(UI)的height
参数,而不是plotly
调用(服务器)中的参数。否则将应用默认值400px
请参见以下可复制的示例:
library(shiny)
library(plotly)
ui <- fluidPage(
plotlyOutput("p1Out", height = "200px"),
plotlyOutput("p2Out", height = "200px"),
plotlyOutput("p3Out", height = "200px")
)
server <- function(input, output, session) {
output$p3Out <- output$p2Out <- output$p1Out <- renderPlotly({
plot_ly(y=1:10, type = "scatter", mode = "lines+markers")
})
}
shinyApp(ui, server)
库(闪亮)
图书馆(绘本)
用户界面