R shiny : Color plot using ggplot

Question

I am creating a plot in R shiny app based on usr input. My filtering of data is a bit complicated and I am unsure fow to pass it to "fill" in ggplot. Below is my code:

data <- reactive({
    req(input$name)
    req(input$type)
    fp %>%
      dplyr::filter(
        name %in% input$name,
        if_any(
          matches(
            str_c('status___', tolower(input$type))), ~
                 .x ==2),
        on_date >= input$Dates[1] &
          off_date <= input$Dates[2]
        ) %>%
      group_by(country) %>%
      summarize(All = n(), .groups = "drop")

  })

##Plot
output$plot <- renderPlot({
    g <- ggplot(data(), aes( y = All, x = country)) #this is wehere I want to use fill to color the plot by "type"
    g + geom_bar(stat = "sum")
  })

Lucca Nielsen · Answer 1 · 2022-05-19T23:16:52.917

0

When you want to pass reactive input as variables in the ggplot aes() you need to use aes_string().

Try this ggplot code :

geom_bar(data = data(),
         aes_string(y = "All",
                    x = "country",
                    fill = input$type), 
         stat = "sum")

edited May 19 '22 at 23:16

answered May 19 '22 at 22:54

Lucca Nielsen

1,497
3
16

I get an error `mapping` must be created by `aes()` – akang May 19 '22 at 23:11
Just edited. Try again – Lucca Nielsen May 19 '22 at 23:17
I get a new error "More than one expression parsed" – akang May 19 '22 at 23:20
try `g + geom_bar(stat = "sum", fill = .data[[input$type]] )` – May 19 '22 at 23:28
Aesthetics must be either length 1 or the same as the data (7): fill – akang May 19 '22 at 23:34

score 0 · Answer 2 · answered May 20 '22 at 09:24

Your problem is that your data() does not contain a column called type. You can verify that, by including a dataTableOutput element to your UI and render data to that. summarize will include only the grouping variables (country in your case) and the aggregated column (All).

Maybe you can provide a full reprex then we cna help better.

R shiny : Color plot using ggplot

2 Answers2