Shinyapp中的多個直方圖

我想選擇多個變數來查看它們的直方圖。下面的代碼只列印一個變數的直方圖。提前謝謝了。

library(shiny)
library(ggplot2)
library(gridExtra)

ui <- fluidPage(
  titlePanel("title panel"),
  sidebarLayout(position = "left",
                sidebarPanel("sidebar panel",
                             checkboxGroupInput(inputId = "selected_var",
                                                label = "Select variables:",
                                                choices = names(mtcars)) 
                ),
                mainPanel("main panel",
                          column(6, plotOutput(outputId = "plotgraph", 
                                               width = "500px", height = "400px"))
                )
  )
)

server <- function(input, output){
  output$plotgraph <- renderPlot({
    ggplot(data = mtcars, aes_string(x = input$selected_var))  
      geom_histogram(aes(y = ..density..), bins = 100, col = "darkgreen", 
                     fill = "darkgreen") 
      geom_density(col = "red", alpha = .2, fill = "#FF6666")
    
  })  
}

shinyApp(ui = ui, server = server)

uj5u.com熱心網友回復：

這是我相信能讓你接近你想要的東西。

library(shiny)
library(ggplot2)
library(tidyverse)

ui <- fluidPage(
  titlePanel("title panel"),
  sidebarLayout(position = "left",
                sidebarPanel("sidebar panel",
                             checkboxGroupInput(inputId = "selected_var",
                                                label = "Select variables:",
                                                choices = names(mtcars)) 
                ),
                mainPanel("main panel",
                          column(6,plotOutput(outputId="plotgraph", width="500px",height="400px"))
                )))



server <- function(input, output){
  # Tidy the data
  tidyCars <- as_tibble(mtcars %>% 
                rownames_to_column("Model")) %>% 
                pivot_longer(
                  -Model,
                  names_to="Variable",
                  values_to="Value"
                )

  output$plotgraph <- renderPlot({
    # Suppress warning message when no variables are selected
    req(input$selected_var)
    
    # Modify print request to handle tidy format
    tidyCars %>% 
      # Filter to selected variables
      filter(Variable %in% input$selected_var) %>% 
      # Define the plot
      ggplot(aes(x=Value))  
      geom_histogram(aes(y = ..density..),bins = 100,col="darkgreen",fill="darkgreen") 
      geom_density(col = "red",alpha=.2, fill="#FF6666")  
      # One plot for each variable
      facet_wrap(vars(Variable))
  })  
}

shinyApp(ui = ui, server = server)

uj5u.com熱心網友回復：

可以使用ggpubrggarrange包，然后使用以下命令創建繪圖串列lapply：

library(shiny)
library(ggplot2)
library(ggpubr)

ui <- fluidPage(
  titlePanel("title panel"),
  sidebarLayout(position = "left",
                sidebarPanel("sidebar panel",
                             checkboxGroupInput(inputId = "selected_var",
                                                label = "Select variables:",
                                                choices = names(mtcars))
                ),
                mainPanel("main panel",
                          column(6, plotOutput(outputId = "plotgraph",
                                              width = "500px", height = "400px"))
                )
  )
)

server <- function(input, output){
  output$plotgraph <- renderPlot({
    if (is.null(input$selected_var))
      plist <- list(ggplot()   theme_void())
    else
      plist <- lapply(
        input$selected_var,
        function(x) ggplot(data = mtcars, aes_string(x = x))  
          geom_histogram(aes(y = ..density..), bins = 100,
                         col = "darkgreen", fill="darkgreen")  
          geom_density(col = "red", alpha = .2, fill = "#FF6666")
      )
    ggarrange(plotlist = plist)
  })
}

shinyApp(ui = ui, server = server)

標籤：r ggplot2 闪亮的 闪亮应用

上一篇：如何對特定組和年份的DF進行一些計算

下一篇：將一年添加到只有幾個月和幾天的時間序列