Селективная гистограмма в R

Question

Как бы вы реализовали что-то подобное в R?

• Гистограмма выбора

Использование выбора диаграммы рассеяния является сложной частью.Я не видел ничего подобного в Shiny или заговоре.

Answer 1

На случай, если кому-то понадобится в будущем.

ui.R

library(shiny)
library(ggplot2)

shinyUI(basicPage(
  titlePanel("Number of forward gears of selected cars"),

  plotOutput("plot",brush = "plot_brush"),
  plotOutput("histo",height="200px")
))

server.R

library(shiny)
library(ggplot2)

shinyServer(function(input, output) {
  output$plot <- renderPlot({  
    ggplot(mtcars, aes(x=wt, y=mpg,color=as.factor(gear))) + geom_point() + labs(y=  'Miles per gallon',x = 'Weight (1000 lbs)')  
  })

  output$histo <- renderPlot({  
    selected_points<-brushedPoints(mtcars, input$plot_brush, xvar = "wt", yvar = "mpg")
    ggplot(data=selected_points, aes(selected_points$gear,fill = as.factor(gear))) + geom_bar() + labs(x="Forward Gears", y="Count")   + coord_flip() +theme_minimal()    
    })
})