library("septimr") library("tidyverse") library("viridisLite") library("plotly")
tmp <- cran_sample %>% mutate(data = map(date, .decompose_date_nam_new)) %>% unnest() %>% print()
cran_nam <- cran_sample %>% mutate_decompose_date(week_style = "nam") %>% print(width = 200)
wkplot <- cran_nam %>% filter(package == "ggplot2", count > 0) %>% ggplot() + geom_tile( aes(x = .week, y = .wday, fill = count), width = 0.925, height = 0.9 ) + scale_y_reverse() + scale_fill_gradientn(colours = viridis(256, option = "D")) + coord_fixed() + theme_minimal() + theme( legend.direction = "horizontal", legend.position = "bottom", axis.line = element_blank(), # axis.text = element_blank(), axis.ticks = element_blank(), axis.title = element_blank(), panel.grid = element_blank() ) + facet_grid(.year ~ .) # ggplotly(wkplot) wkplot
It's clear that we have a problem with the method for assigning weeks in the "nam"
style.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.