Как связать данные таблицы и гистограммы в R блестящий

Question

Я пытаюсь создать информационную панель, где мои данные имеют около 7-8 столбцов и 1500-2000 записей. Есть два столбца, которые числовые, по которым я хочу сделать суммирование. Остальные столбцы, которые я хочу использовать для нарезки данных (создание подмножества путем добавления фильтров или нарезки его в соответствии с записями других столбцов).

Я хотел создать панель инструментов, где каждый мог бы создавать гистограммы или сводные таблицы на ходу. Я смог добиться этого с помощью rpivottable,

Мой второй шаг - показать данные, которые отображаются на этих графиках. Это не имеет особого смысла, если диаграмма находится на базовом уровне, то есть в записях 1,5–2 тыс., Но по мере того, как я делаю данные все дальше и дальше на основе фильтров из остальных столбцов. Я подойду к тому, что только 80 или 100 строк удовлетворяют списку фильтров. Я хочу показать эти ряды на самой блестящей приборной панели.

Я использую этот код для создания панели инструментов ниже, но данные - это все данные, которые я прочитал.

 library(shiny)
 library(DT)
 library(rpivotTable)

  data <-read.csv("Book1.csv")

 ui =  fluidPage(
rpivotTableOutput("test"),DT::dataTableOutput('table'))

server = function(input, output) {
  output$test <- renderRpivotTable({
  rpivotTable(data = data)          })

  output$table <- renderDataTable(
    data, options = list(
      pageLength = 100

    )
  )

Я могу создавать графики и таблицы, используя rpivottable а также DT пакет, но есть ли способ связать оба этих? Поскольку таблица данных сейчас просто показывает все данные, которые были прочитаны изначально.

Например, если я хочу видеть данные, которые составляют оранжевую полосу, на втором изображении, и я нажимаю на оранжевую полосу, есть ли в таблице способ показать данные, составляющие оранжевую полосу?