散点图显示 Shiny 中.Rdata 的关联

Question

I am a complete beginner with programming and R, and currently I'm trying to learn how to make a Shiny app. Also, I am sorry if I'm repeating the question that was already asked, I wasn't able to find solution to my problem. So I have made a "data.Rdata" list from which I'm using the variables. My x is numVars and y is catVars. So i have managed to do everithyng except show the association of selected numerical and categorical variable with a scatterplot. For that purpose I found a code which I don't know how to integrate with my.Rdata dataset because I am not able to find function to load 1. Rdata in it and 2. how to input my numerical and categorical variable on x and y axis. The code that i found was using mtcars dataset and I don't know how to replace it so it can work properly with the dataset that I have. For sure there is a more elegant solution for simulating this I'm just not able to find it. Any help would be great, thank you.

  selected <- reactiveVal(rep(FALSE, nrow(mtcars)))
   
   observeEvent(input$plot_brush, {
     brushed <- brushedPoints(mtcars, input$plot_brush, allRows = TRUE)$selected_
     selected(brushed | selected())
   })
   observeEvent(input$plot_reset, {
     selected(rep(FALSE, nrow(mtcars)))
   })
   
   output$plot <- renderPlot({
     mtcars$sel <- selected()
     ggplot(mtcars, aes(wt, mpg)) + 
       geom_point(aes(colour = sel)) +
       scale_colour_discrete(limits = c("TRUE", "FALSE"))
   }, res = 96)
   
   output$summary<-renderPrint({      
     summary(d("data.Rdata"))
   })
}