R Shiny改变情节的高度答案

【问题标题】：R Shiny change height of plotR Shiny改变情节的高度
【发布时间】：2017-06-26 10:07:49
【问题描述】：

我正在尝试设置绘图的高度，但似乎无法在绘图函数中获取高度参数来实际执行任何操作。有人有什么建议吗？

  output$probability_chart <- renderPlot({
    xvals <- 1:17 
    req(input$countrySelectProbabilities)
    idx <- which(input$countrySelectProbabilities==FVI_DATA_ALL_COUNTRIES)

    max_comp_prob <- max(Composite_Probabilities_1_DF[idx, 2:18], na.rm=TRUE)
    max_bank_prob <- max(Banking_Probabilities_1_DF[idx, 2:18], na.rm=TRUE)
    max_curr_prob <- max(Currency_Probabilities_1_DF[idx, 2:18], na.rm=TRUE)
    max_sove_prob <- max(Sovereign_Probabilities_1_DF[idx, 2:18], na.rm=TRUE)
    max_sudd_prob <- max(Sudden_Stop_Probabilities_1_DF[idx, 2:18], na.rm=TRUE)

    overall_max_prob <- max(max_comp_prob, max_bank_prob, max_curr_prob, max_sove_prob, max_sudd_prob, na.rm=TRUE)


    plot(x = xvals, y=Composite_Probabilities_1_DF[idx, 2:18], type = "l"
         , xlab = "", ylab = "", col="grey20", ylim = c(-10, overall_max_prob), lwd=3, las=2)
    mtext("Financial Vulnerability Indicator", side=3, adj=0, line=1.2, cex=2, font=2)
    mtext("Probability", side=3, adj=0, line=0.1, cex=1, font=0.5)
    axis(1,at=xvals,label=dates, cex.axis=1, las=2)
    lines(xvals, Banking_Probabilities_1_DF[idx, 2:18], col="green2", lwd=3)
    lines(xvals, Currency_Probabilities_1_DF[idx, 2:18], col="purple", lwd=3)
    lines(xvals, Sovereign_Probabilities_1_DF[idx, 2:18], col="red", lwd=3)
    lines(xvals, Sudden_Stop_Probabilities_1_DF[idx, 2:18], col="orange", lwd=3)
    legend(
      "bottom", 
      lty=c(1,1,1,1), 
      lwd=c(3,3,3,3), 
      col=c("grey20", "green2", "purple", "red", "orange"), 
      legend = c("Composite", "Banking", "Currency", "Sovereign", "Sudden Stop")
      ,ncol=5
    )
  })

【问题讨论】：

renderPlot中有一个高度参数。你试过吗？
啊，是的，我的错，这确实有效。谢谢！
很高兴它有帮助。顺便说一句，您还可以将高度定义为一个函数，以防您希望依赖于输入或反应值。

标签： r plot shiny

【解决方案1】：

在server.R 中，您应该在plotOutput 旁边添加高度参数：

 plotOutput("plot", height=800)

【讨论】：

注意height属性也可以是input$somefield。