Интерактивный сюжет продолжительности - PullRequest
Новая
       25

Интерактивный сюжет продолжительности

0 голосов
/ 17 сентября 2018

У меня есть образцы и продолжительность. 

library(lubridate)
daf <- data.frame(sample=c("m","k","c","b"),duration=ddays(c(4,2,1,3)))
daf$start <- Sys.time()-daf$duration

> head(daf)
  sample          duration               start
1      m 345600s (~4 days) 2018-09-13 15:08:17
2      k 172800s (~2 days) 2018-09-15 15:08:17
3      c  86400s (~1 days) 2018-09-16 15:08:17
4      b 259200s (~3 days) 2018-09-14 15:08:17

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

library(ggplot2)
ggplot(daf)+
geom_segment(aes(x=start,y=sample,xend=Sys.time(),yend=sample))+
 theme_minimal()

enter image description here

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

library(xts)
library(dygraphs)
dygraph(xts(as.integer(factor(daf$sample)),order.by=daf$start))
library(highcharter)
hchart(xts(as.integer(factor(daf$sample)),order.by=daf$start))

1 Ответ

0 голосов
/ 17 сентября 2018

Возможно, вы захотите попробовать библиотеку timevis, которая предназначена для визуализации временных шкал. 

daf <- data.frame(content=c("m","k","c","b"),duration=ddays(c(4,2,1,3)))
daf$start <- Sys.time()-daf$duration
daf$end <- Sys.time()
timevis(daf)
...