Исключая выбросы в Boxplot (R Shiny) - PullRequest
Новая
       25

Исключая выбросы в Boxplot (R Shiny)

0 голосов
/ 21 июня 2019

У меня есть этот замечательный код, который позволяет вам выбирать и исключать выбросы в графике QQ (http://shiny.rstudio.com/gallery/plot-interaction-exclude.html). Теперь я изо всех сил пытаюсь применить то же самое к блокпосту с использованием набора данных швейцарцев. что?

Я думаю, что главная проблема - "nrows" ... 

[...]
tabPanel("Outlier analysis",
                         plotOutput("o_boxplot", click = "plot1_click", brush = brushOpts(id = "plot1_brush")),
                         actionButton("exclude_reset", "Reset")
[...]

server <- function(input, output) {

vals <- reactiveValues(
keeprows = rep(TRUE, nrow(dataSummary)))


dataSummary <- reactive({swiss[,input$i_selectMainData]})

output$o_boxplot <- renderPlot({
  keep    <- dataSummary[ vals$keep, , drop = FALSE]
  exclude <- dataSummary[!vals$keep, , drop = FALSE]

  boxplot(dataSummary(), horizontal = TRUE) # main = c("Boxplot", y), xlab = z)
  })

observeEvent(input$plot1_click, {
  res <- nearPoints(dataSummary, input$plot1_click, allRows = TRUE)

  vals$keeprows <- xor(vals$keeprows, res$selected_)
})
observeEvent(input$exclude_reset, {
  vals$keeprows <- rep(TRUE, nrow(dataSummary))
[...]

Я просто вставил основные части кода выше. При необходимости я также могу отправить все это.

...