PROSAGA码农传奇-模型可视化-在最大化屏幕时，集成在Shiny仪表板中的Plotly图形的大小和比例会发生变化

在最大化屏幕时，集成在Shiny仪表板中的Plotly图形的大小和比例会发生变化

作者: star
发布时间: 2024-10-13 02:39:51 (7天前)
转自：

<div class =“post-text”itemprop =“text”>
  <P>
    也许这可以帮助你：
  </p>
   <pre>
    <code>
      header <- dashboardHeader(
)

sidebar <- dashboardSidebar(

)

body <- dashboardBody(
  box(title = "Test", width = 10, height = "500px",
      plotlyOutput("plot",width = "400px", height = "400px")
  )
)

ui <- dashboardPage(header, sidebar, body)

server <- function(input, output) {

output$plot <- renderPlotly({

server <- function(input, output) {

output$plot <- renderPlotly({

p <- plot_ly()
p <- add_trace(p, x=a, y=b, z=c, mode="markers", type="scatter3d", marker = list(size = 5, color = 'rgba(0, 0, 0, 1)'))
p <- layout(p, scene = list(xaxis = list(title = "A",range = c(-2,2)), yaxis = list(title = "B",range = c(-2,2)), zaxis = list(title = "C",range = c(-2,2))))
    p

})
    }

shinyApp(ui, server)

})
}

shinyApp(ui, server)

box(title = "Test", width = 10, height = "500px",
      plotlyOutput("plot",width = "400px", height = "400px")
  )

</code>
  </pre>
  <OL>
    <LI>
      定义框宽度和高度
    </LI>
    <LI>
      <P>
        定义您的绘图宽度和高度
      </p>
      <P>
         <code>
          p <- layout(p, scene = list(xaxis = list(title = "A",range = c(-2,2)), yaxis = list(title = "B",range = c(-2,2)), zaxis = list(title = "C",range = c(-2,2))))
        </code>
      </p>
    </LI>
    <LI>
      <P>
        定义您的绘图范围轴
      </p>
    </LI>
  </醇>
</DIV>