Рассчитать среднее / среднее значение на основе фильтра данных в R flexdashboard - PullRequest
Новая
       48

Рассчитать среднее / среднее значение на основе фильтра данных в R flexdashboard

0 голосов
/ 14 апреля 2020

Коды ниже приведены в R flexdashboard: 

library(flexdashboard)
library(shiny)
library(DT)

renderDataTable({
  df <- data.frame(Month = c("2019-10-01", "2019-11-01", "2019-12-01", "2020-01-01", "2020-02-01", "2020-03-01"),
                 value1 = c(1, 2, 2, 4, 3, 1),
                 value2 = c(100, 200, 300, 400, 500, 600))

  DT::datatable(df,
                rownames = FALSE, filter = "top",
                options = list(autoWidth = FALSE,
                               lengthChange = FALSE,
                               lengthMenu = FALSE,
                               pageLength = FALSE,
                               paging = FALSE,
                               info = FALSE,
                               columnDefs = list(list(className = 'dt-center', targets = "_all")),
                               order = list(list(0, 'desc'))))
})

Выход:

enter image description here

Желаемый выход: enter image description here

Я хотел бы получить среднее значение для столбца «значение2», «значение3», «значение4» ... на основе фильтра по столбцу «значение1». Я пробовал colMeans из пакета matrixStats, но среднее значение не будет меняться при фильтрации. Он покажет только среднее значение по всему столбцу.

Спасибо!

...