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"
)