#r #dataframe #shiny #interactive
Вопрос:
У меня есть следующая таблица:
sid vid ts step1 step2 ... stepn
1 10 1625452 a b . n
2 11 1689612 a b . n
3 12 1567098 a NA . NA
4 13 1635977 a b . NA
Используя эту таблицу, я использую функцию складной древовидной диаграммы, которая создает визуализацию:
rm(список = ls()) библиотека(flexdashboard) библиотека(dplyr) библиотека(ggplot2) библиотека(сворачиваемое дерево) библиотека(цветовое пространство) библиотека(rsconnect) параметры(блестящий.очистить.ошибки = ЛОЖЬ)
require(data.tree)
require(collapsibleTree)
df %>%
group_by(CST...Step.1,CST...Step.2,CST...Step.3,CST...Step.4,CST...Step.5, CST...Step.6,CST...Step.7,CST...Step.8,CST...Step.9) %>%
summarize(`n` = n()) %>%
collapsibleTreeSummary(
hierarchy = c('CST...Step.1','CST...Step.2','CST...Step.3','CST...Step.4','CST...Step.5','CST...Step.6','CST...Step.7','CST...Step.8','CST...Step.9'),
root = "Open CST",
linkLength = 500.0,
attribute = "n",
percentOfParent = TRUE,
nodeSize = "n",
fontSize = 15.0,
tooltip = TRUE,
maxPercent = 40
)
Эта визуализация достигается с помощью пакета flexdashboard и размещается на shiny.apps
Я хочу сделать так, чтобы пользователи могли фильтровать дерево по метке времени, где они выбирают начальный диапазон и конечный диапазон, на графике отображаются только те значения определенного диапазона. Я предполагаю, что это должно было бы быть сделано до collapsibleTreeSummary()
того, чтобы для этого требовались только строки, которые находятся за пределами временного диапазона.