spsanderson / healthyR

Hospital Data Analysis Workflow Tools
https://www.spsanderson.com/healthyR
Other
30 stars 3 forks source link

TrelliscopeJS Integration in Timetk #128

Open mdancho84 opened 2 years ago

mdancho84 commented 2 years ago

Hey Steven,

I hope you are well. I wanted to give you advance notice that I will be making a new option to timetk and modeltime plotting functions to optionally allow users to use trelliscopejs. This is a developmental feature that helps improve the user's ability to view many time series at once.

Trelliscope Visuals

Here's a quick example. Again this is only available in the development version. I think your users may enjoy it!

image

And the code used to create it:

library(timetk)
library(tidyverse)

walmart_sales_weekly %>%
    select(id, Dept, Date, Weekly_Sales) %>%
    set_names(c("id", "dept", "date", "value")) %>%
    group_by(id, dept) %>%

    plot_time_series(
        date, value, 
        .trelliscope        = TRUE, 
        .facet_ncol         = 2, 
        .facet_nrow         = 2,
        .facet_strip_remove = TRUE, 
        .title              = NULL
    )

More information

For more information please follow business-science/timetk#116

spsanderson commented 2 years ago

Very nice thank you, I’ll be checking it out for the next set of releases

On Sun, Apr 3, 2022 at 8:59 AM Matt Dancho @.***> wrote:

Hey Steven,

I hope you are well. I wanted to give you advance notice that I will be making a new option to timetk and modeltime plotting functions to optionally allow users to use trelliscopejs. This is a developmental feature that helps improve the user's ability to view many time series at once. Trelliscope Visuals

Here's a quick example. Again this is only available in the development version. I think your users may enjoy it!

[image: image] https://user-images.githubusercontent.com/13734662/161429157-b7945dab-422b-47d3-80d7-430155c505b9.png

And the code used to create it:

library(timetk) library(tidyverse) walmart_sales_weekly %>% select(id, Dept, Date, Weekly_Sales) %>% set_names(c("id", "dept", "date", "value")) %>% group_by(id, dept) %>%

plot_time_series(
    date, value,
    .trelliscope        = TRUE,
    .facet_ncol         = 2,
    .facet_nrow         = 2,
    .facet_strip_remove = TRUE,
    .title              = NULL
)

More information

For more information please follow business-science/timetk#116 https://github.com/business-science/timetk/issues/116

— Reply to this email directly, view it on GitHub https://github.com/spsanderson/healthyR/issues/128, or unsubscribe https://github.com/notifications/unsubscribe-auth/AAPCNS6Y4DTZR77JQKCPCPLVDGI2PANCNFSM5SNFCXFA . You are receiving this because you are subscribed to this thread.Message ID: @.***>

-- Steven P Sanderson II, MPH Book on Lulu http://goo.gl/lmrlFI Personal Site http://www.spsanderson.com