У меня есть график, показывающий столбцы time
и amount
кадра данных df
.
df:
id time amount category
1 2018-03-22 15:22:00 78 g1
2 2018-03-22 15:30:00 77 g1
...
34 2018-03-23 01:00:00 82 k3
...
График представляет собой анимацию, поэтому график отображается шаг за шагом, как в этом примере (https://plot.ly/r/cumulative-animations/#cumulative-lines-animation) в разделе Анимация накопленных линий . Я не могу опубликовать свою кодировку, но она выглядит примерно так.
Кодировка с сайта:
library(plotly)
accumulate_by <- function(dat, var) {
var <- lazyeval::f_eval(var, dat)
lvls <- plotly:::getLevels(var)
dats <- lapply(seq_along(lvls), function(x) {
cbind(dat[var %in% lvls[seq(1, x)], ], frame = lvls[[x]])
})
dplyr::bind_rows(dats)
}
d <- txhousing %>%
filter(year > 2005, city %in% c("Abilene", "Bay Area")) %>%
accumulate_by(~date)
p <- d %>%
plot_ly(
x = ~date,
y = ~median,
split = ~city,
frame = ~frame,
type = 'scatter',
mode = 'lines',
line = list(simplyfy = F)
) %>%
layout(
xaxis = list(
title = "Date",
zeroline = F
),
yaxis = list(
title = "Median",
zeroline = F
)
) %>%
animation_opts(
frame = 100,
transition = 0,
redraw = FALSE
) %>%
animation_slider(
hide = T
) %>%
animation_button(
x = 1, xanchor = "right", y = 0, yanchor = "bottom"
)
Мой сюжет:
Теперь я хочу отобразить динамическую таблицу рядом с графиком, которая показывает значения моего информационного кадра относительно текущего отложенного времени.
Желаемый вывод (на момент, показанный на графике выше):
id 34
amount 82
category k3
Выход этой таблицы должен обновляться одновременно с графиком, всегда показывая значения текущего времени (значение ползунка), который является атрибутом frame
функции plotly()
Так что ключевой вопрос в том, что мне нужно получить доступ к значению анимированного слайдера, но у функции нет идентификатора, поэтому я не могу его вызвать.
Есть идеи, как получить значение слайдера? Илиесть ли другой подход, где я могу подключить анимацию кстол для достижения моей цели?