Using CalendR to plot fishing days for boats. On Tuesday 02 January two boats share a fishing date, however the day is shaded green for Marlin, and you are not able to see that Fish Tales went fishing on the same day.
Is there a way to visualise both shades/colours e.g. split the day into two halves either horizontally or vertically?
I thought maybe using a symbol that indicates more than one trip on the same day and annotate it somewhere in the plot but that will be a least preferred option.
Load packages, create events & plot calander:
## load packages
library(tidyverse)
library(calendR)
library(viridis)
library(scales)
## events
events <- rep(NA, 366) ## 2024 is a leap year
## corresponding events
events[c(3, 22, 45, 63, 100, 140, 195, 234, 300)] <- "Big Catch" ## boat 1
events[c(2, 36, 59, 123, 167, 210, 289, 340)] <- "Fish Tales" ## boat 2
events[c(2, 25, 80, 155, 255, 297, 339)] <- "Marlin" ## boat 3
events[c(1, 89, 92, 142, 143, 239, 360, 361)] <- "Holiday" ## holidays
## holiday to come last
desired_order <- factor(c(levels = c("Big Catch", "Fish Tales", "Marlin", "Holiday")))
## select desired order and colourway
show_col(viridis_pal()(5)) ## colour palette = viridis
print(viridis_pal()(5))
## order colours
ordered_colours <- c("#3b528bff", "#21908cff", "#5dc863ff", "lightgray")[order(desired_order)]
## plot
calendR(year = 2024, start = "M",
special.days = events,
special.col = c(ordered_colours),
lty = 1, bg.col = "white",
subtitle.col = 1,
weeknames = c("M", "T", "W", "T", "F", "S", "S"),
day.size = 3.5,
orientation = "l",
legend.pos = "bottom"
)