闪亮：渲染地块与fluidrow的重叠

在本例中，如果我们替换

server.R

print(p)

})

借

我们得到了图形窗口的重叠，下面的输入与

fluidrow

集成。 如果在

渲染图

中指定了

高度

，我们如何避免这种重叠？

---

谢谢。

将绘图设为UI对象，然后在渲染时知道其大小。我将绘图大小设置为滑块，这当然是可选的：）

ui.R

library(shiny)
library(ggplot2)

dataset <- diamonds

shinyUI(fluidPage(

  title = "Diamonds Explorer",

  uiOutput('sized_plot'),

  hr(),

  fluidRow(
    column(3,
           h4("Diamonds Explorer"),
           sliderInput('sampleSize', 'Sample Size', 
                       min=1, max=nrow(dataset),
                       value=min(1000, nrow(dataset)), 
                       step=500, round=0),
           sliderInput('plotSize', 'Plot Size', 
                       min=100, max=2000,
                       value=600, 
                       step=50, round=0),
           br(),
           checkboxInput('jitter', 'Jitter'),
           checkboxInput('smooth', 'Smooth')
    ),
    column(4, offset = 1,
           selectInput('x', 'X', names(dataset)),
           selectInput('y', 'Y', names(dataset), names(dataset)[[2]]),
           selectInput('color', 'Color', c('None', names(dataset)))
    ),
    column(4,
           selectInput('facet_row', 'Facet Row',
                       c(None='.', names(diamonds[sapply(diamonds, is.factor)]))),
           selectInput('facet_col', 'Facet Column',
                       c(None='.', names(diamonds[sapply(diamonds, is.factor)])))
    )
  )
))

library(shiny)
library(ggplot2)

shinyServer(function(input, output) {

  dataset <- reactive({
    diamonds[sample(nrow(diamonds), input$sampleSize),]
  })

  output$plot <- renderPlot({

    p <- ggplot(dataset(), aes_string(x=input$x, y=input$y)) + geom_point()

    if (input$color != 'None')
      p <- p + aes_string(color=input$color)

    facets <- paste(input$facet_row, '~', input$facet_col)
    if (facets != '. ~ .')
      p <- p + facet_grid(facets)

    if (input$jitter)
      p <- p + geom_jitter()
    if (input$smooth)
      p <- p + geom_smooth()

    print(p)

  })

  output$sized_plot <- renderUI({
    plotOutput("plot", height = input$plotSize)
  })

})

库（闪亮）
图书馆（GG2）
非常感谢。您的解决方案使我了解到解决方案实际上更简单：只需使用
plotOutput
函数的
height
参数，而不是
renderPlot
函数的
height
参数。。。。
library(shiny)
library(ggplot2)

shinyServer(function(input, output) {

  dataset <- reactive({
    diamonds[sample(nrow(diamonds), input$sampleSize),]
  })

  output$plot <- renderPlot({

    p <- ggplot(dataset(), aes_string(x=input$x, y=input$y)) + geom_point()

    if (input$color != 'None')
      p <- p + aes_string(color=input$color)

    facets <- paste(input$facet_row, '~', input$facet_col)
    if (facets != '. ~ .')
      p <- p + facet_grid(facets)

    if (input$jitter)
      p <- p + geom_jitter()
    if (input$smooth)
      p <- p + geom_smooth()

    print(p)

  })

  output$sized_plot <- renderUI({
    plotOutput("plot", height = input$plotSize)
  })

})