TS_Heatmap

[AnningerChris]

Good Day,
it seems that x-axis label is hardcoded to "YEAR", but in case of plotting weekly seasons with daily observations, this is wrong.

Best Regards, Christian
PS: Thanks for your work on TSStudio!!!

[RamiKrispin]

@AnningerChris thanks for the feedback. could you please share a reproducible example?

A quick fix (until will fix and release to CRAN) as the modify the x-axis labels using plotly layout:

library(TSstudio)
library(plotly)

p <- ts_heatmap(ts.obj = my_data)

p %>%
layout(xaxis = list(title = "Week"))

[AnningerChris]

@RamiKrispin well let me try to create a working example like this one:

library(TSstudio)
library(lubridate)
date <- as.Date(seq(as.Date("2020-02-26"):as.Date("2021-04-01")), origin = "2020-02-26")
ts_ex_df <- data.frame(date)
ts_ex_df$data <- rnorm(401,2,1)
ts_ex <- ts(ts_ex_df$data,
start = c(isoweek(min(ts_ex_df$date)), as.numeric(wday(min(ts_ex_df$date), week_start = 1))),
end = c(isoweek(max(ts_ex_df$date))+57, as.numeric(wday(max(ts_ex_df$date), week_start = 1))),
frequency = 7)
ts_heatmap(ts_ex)

Many thx for the quickfix!

[RamiKrispin]

Here is a temp fix:

library(lubridate)
library(plotly)
date <- as.Date(seq(as.Date("2020-02-26"):as.Date("2021-04-01")), origin = "2020-02-26")
ts_ex_df <- data.frame(date)
ts_ex_df$data <- rnorm(401,2,1)
ts_ex <- ts(ts_ex_df$data,
            start = c(isoweek(min(ts_ex_df$date)), as.numeric(wday(min(ts_ex_df$date), week_start = 1))),
            end = c(isoweek(max(ts_ex_df$date))+57, as.numeric(wday(max(ts_ex_df$date), week_start = 1))),
            frequency = 7)


ts_heatmap(ts_ex) %>%
  layout(title = "My title",
         xaxis = list(title = "Week"))