Resolved: Reactive Dataframe in Rshiny

Question:

I have a data frame which consist of multiple categories and month. Each row is 1 interaction by the participant so I want to show by the month and the different categories their interaction count throughout the year through a heatmap. A total of 4.9 million rows which means there is a total of 4.9million interactions throughout the year.
I tried to use an input to indicate the column name and tried to reactively change the X axis but it does not seem to work.

library(shiny)<br />
library (igraph)<br />
library (tidygraph)<br />
library (ggraph)<br />
library (plotly)</p>
<p>interaction <- readRDS("participant_interaction.rds")

# Define UI for application that draws a histogram
ui <- fluidPage(

    # Application title
    titlePanel("Social Network Interaction"),

    # Sidebar with a slider input for number of bins 
    sidebarLayout(
        sidebarPanel(
          helpText(" Visualise the Social Network Interaction of the Population
          in Ohio"),
          
            selectInput(inputId = "Category",
                        label = "Choose a Category",
                        choices = c( "Household Size" = "Household_Size",
                                     "Have Kids" = "Have_Kids",
                                     "Education Level" = "Education_Level",
                                     "Interest Group" = "Interest_Group",
                                     "Age Group" = "Age_Group"
                        ),
                        selected = "Household_Size")
        ),

        # Show a plot of the generated distribution
        mainPanel(
           plotOutput("heatmapPlot")
        )
    )
)


server <- function(input, output, session) {
  
  dataset <- reactive({
    interaction %>%<br />
      group_by(Month,input$Category)%>%<br />
      summarise(InteractionCount = n()) %>%<br />
      ungroup<br />
  })</p>
<p>    output$heatmapPlot <- renderPlot({
      ggplot(dataset(),aes(x= input$Category,y = Month,fill = InteractionCount)) +
        geom_tile()
    })
}

# Run the application 
shinyApp(ui = ui, server = server)
[/code]

</p>



Desired Output:
<a href="https://i.imgur.com/6pdt81H.png" rel="nofollow noreferrer"><img decoding="async" src="https://i.imgur.com/6pdt81H.png" alt="Heatmap"></a><br> 



Current Output:
<a href="https://i.imgur.com/xQFxE7t.png" rel="nofollow noreferrer"><img decoding="async" src="https://i.imgur.com/xQFxE7t.png" alt="enter image description here"></a><br> 



my random 20 (dput) for my RDS file:<br> 


<p>[code]structure(list(Participant_ID = c(374, 167, 899, 299, 443, 889,<br />
997, 521, 953, 436, 218, 422, 4, 227, 126, 12, 57, 386, 255,<br />
307), Month = structure(c(7L, 8L, 9L, 9L, 6L, 10L, 11L, 7L, 4L,<br />
6L, 10L, 11L, 8L, 12L, 7L, 8L, 7L, 11L, 7L, 10L), .Label = c("Jan",<br />
"Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct",<br />
"Nov", "Dec"), class = c("ordered", "factor")), Income = c(37891.66,<br />
50156.67, 59877.49, 56393.02, 27899.58, 61258.05, 60728.21, 44858.08,<br />
36665.14, 27970.52, 27803.1, 63058.55, 135076.17, 46147.7, 30712.52,<br />
93774.11, 168620.22, 82925.21, 29451.88, 40328.79), Expenses = c(-26931.38,<br />
-32313.29, -25363.68, -23341.46, -24747.06, -18336.36, -17067.74,<br />
-22054.58, -23258.78, -22504.3, -23833.48, -17322.96, -28322.98,<br />
-16633.05, -23661.04, -21135.57, -20642.13, -23707.51, -26028.96,<br />
-30125.43), Household_Size = c(2, 2, 2, 3, 1, 2, 1, 3, 1, 1,<br />
1, 1, 3, 1, 2, 3, 3, 2, 3, 3), Have_Kids = c(FALSE, FALSE, FALSE,<br />
TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE,<br />
TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE), Age = c(57,<br />
49, 59, 35, 56, 19, 48, 39, 45, 36, 38, 27, 43, 59, 26, 34, 56,<br />
39, 59, 38), Education_Level = c("High School or College", "High School or College",<br />
"Graduate", "High School or College", "High School or College",<br />
"Bachelors", "Graduate", "High School or College", "Graduate",<br />
"High School or College", "High School or College", "Graduate",<br />
"Bachelors", "High School or College", "High School or College",<br />
"High School or College", "Graduate", "Graduate", "High School or College",<br />
"Graduate"), Interest_Group = c("F", "F", "B", "I", "F", "A",<br />
"I", "I", "G", "J", "B", "D", "H", "H", "A", "D", "A", "H", "H",<br />
"H"), Joviality = c(0.85417223, 0.846680285, 0.544405537, 0.5149016,<br />
0.758121962, 0.126644557, 0.128853966, 0.477456741, 0.846871205,<br />
0.949412047, 0.971074532, 0.647441392, 0.857396691, 0.490213553,<br />
0.72895287, 0.241615182, 0.422849796, 0.479804894, 0.852187763,<br />
0.962210067), Age_Group = structure(c(9L, 7L, 9L, 4L, 9L, 1L,<br />
7L, 5L, 6L, 5L, 5L, 3L, 6L, 9L, 3L, 4L, 9L, 5L, 9L, 5L), .Label = c("20 & Below",<br />
"21-25", "26-30", "31-35", "36-40", "41-45", "46-50", "51-55",<br />
"56-60"), class = "factor")), row.names = c(1970773L, 932225L,<br />
4348108L, 1549925L, 2381951L, 4296595L, 4822673L, 2808545L, 4594431L,<br />
2337980L, 1146486L, 2241290L, 16905L, 1187579L, 697338L, 71056L,<br />
302316L, 2012670L, 1319716L, 1594018L), class = "data.frame")

Answer:

input$Category is a string, however the dplyr verbs and aes expect a symbol. There are some older answers out there recommending aes_string or manually converting the string to a symbol.
However, now the recommended option is to use the .data pronoun, see the dplyr documentation and mastering shiny book.
In your case, it would be:

group_by(Month, .data[[input$Category]])

and

aes(x = .data[[input$Category]], y = Month, fill = InteractionCount)

If you have better answer, please add a comment about this, thank you!

Resolved: Reactive Dataframe in Rshiny

Resolved: net::ERR_HTTP2_PROTOCOL_ERROR by http get request angular 15.2

Resolved: How do I stop the command from happening if the requirements for it to work aren’t sert Discord.js

Resolved: How to scroll bottom of div at launch?

Leave A Reply