如何设置闪亮的大小和特定布局

Question

我正在努力使以下布局闪亮：

到目前为止，这是我在answer：

的帮助下取得的成就

我的ui.R：

library(shiny)
library(ggplot2)
shinyUI(fluidPage(  
# fluidRow(
# title = "My title",
# column(6,plotOutput('plot1', height="200px"))
# #plotOutput('plot1'),
# #plotOutput('plot2'),
# #plotOutput('plot3')
# ),
fluidRow(
  column(6,div(style = "height:200px;background-color: gray;", "Topleft")),
  column(6,div(style = "height:400px;background-color: gray;", "right"))),
fluidRow(
  column(6,div(style = "height:100px;background-color: gray;", "Bottomleft"))
  ),
hr(),  
fluidRow(
  column(7,
       h4("Control Panel"),
       fileInput('file', 'Select an CSV file to read',
                 accept=c('text/csv','text/comma-separated-     values,text/plain','.csv')),
        br(),          
       sliderInput('sampleSize', 'Sample Size', 
                   min=1, max=100, value=min(1, 100), 
                   step=500, round=0),          
       br(),           
       actionButton("readButton", "Read Data!")
    )
    )
  ))

我的服务器.R：

function(input, output) {




}

我不知道如何将plotOutput插入框中？ 如何控制盒子的大小看起来像上面给出的布局？

Answer 1

不要太复杂，只需使用行，列和图的height属性：

library(shiny)

ui <- shinyUI(fluidPage(fluidRow(
  column(
    width = 3,
    plotOutput('plot1', height = 200),
    plotOutput('plot2', height = 200)
  ),
  column(width = 8, plotOutput('plot3', height = 400))
),
hr(),
wellPanel(fluidRow(
  column(
    width = 11,
    align = "center",
    h3("Control Panel"),
    column(width = 3, fileInput('file','Select an CSV file to read', accept = c('text/csv', 'text/comma-separated-values,text/plain', '.csv'))),
    column(width = 3, offset = 1, sliderInput('sampleSize','Sample Size', min = 1, max = 100, value = min(1, 100), step = 500,round = 0)),
    column(width = 1, offset = 1, actionButton("readButton", "Read Data!"))
  )
))))


server <- function(input, output) {
  output$plot1 <- renderPlot({
    plot(mtcars$mpg, mtcars$cyl)
  })
  output$plot2 <- renderPlot({
    plot(mtcars$mpg, mtcars$carb)
  })
  output$plot3 <- renderPlot({
    plot(mtcars$mpg, mtcars$disp)
  })
}

shinyApp(ui, server)