Question

我正在尝试使用 Rstuidio 在 R Markdown HDML 输出中输出图形。目前图表太大，所以它创建了一个滚动条让你看到整个事情，我不喜欢。我想在不减小数字大小的情况下删除滚动条。

不幸的是，闪亮的（或至少是我使用闪亮的方式）似乎在执行此操作的正常方法时存在问题。在块设置中设置 fig.height = 40 没有任何作用，在 plotOutput 中增加高度会增加图形高度而不移除滚动条。我用标准的 Rscript 没有这个问题，所以它绝对是一个 Rmarkdown 的东西。

任何帮助将不胜感激。

library(tidyverse)
library(shiny)

server <- function(input, output, session) {
  
  trends <- reactive({
    req(input$sel_year)
    mpg %>%
    filter(year %in% input$sel_year)
    
  })
      
  output$plot <- renderPlot({
    ggplot(
      data = trends(),
      mapping = aes(x = trans)
    ) + 
      geom_bar()
  })
}

ui <- fluidPage(
  selectInput(
    inputId = "sel_year",
    label = "Choose Year",
    list("1999", "2008")
  ),
  plotOutput("plot")
)

shinyApp(ui = ui, server = server)

Answer 1

这就是我在 Rmarkdown 中使用 Shiny 的方式。这是一个 answer I used。您可以使用 shinyApp() 参数调整闪亮的 options 函数。

没有修复（注意滚动条）

使用下面的代码

---
title: "Shiny in Rmarkdown"
output: html_document
runtime: shiny
---

```{r echo = FALSE, warning=FALSE, message=FALSE }
library(tidyverse)
library(shiny)

server <- function(input, output, session) {
    
    trends <- reactive({
        req(input$sel_year)
        mpg %>%
            filter(year %in% input$sel_year)
        
    })
    
    output$plot <- renderPlot({
        ggplot(
            data = trends(),
            mapping = aes(x = trans)
        ) + 
            geom_bar()
    })
}

ui <- fluidPage(
    selectInput(
        inputId = "sel_year",
        label = "Choose Year",
        list("1999", "2008")
    ),
    plotOutput("plot")
)

shinyApp(ui = ui, server = server, options = list(height = 750))
```

更改图形大小（Rstudio、Rmarkdown、Shiny）

1 个答案: