Построение временных интервалов в R и тайлинг на несколько лет

В настоящее время я пытаюсь составить график выборки для моей магистерской диссертации, которая выглядит примерно так:

Рисунок 1:

Итак, у меня есть данные за 3 года, и я хочу указать точные дни месяца, когда каждое развертывание начиналось и заканчивалось. Но в R мне удается построить только следующее:

Фигура 2:

Дело в том, что я хотел бы, чтобы мой график показывал только 12 месяцев по оси X и перекрывал годы по оси Y, чтобы фигура была «тоньше». Я предполагаю, что мне нужно каким-то образом удалить год дат POSIXct, но мне не удается представить интервалы так точно.

Я подготовил подмножество данных для этого вопроса, и мой сценарий выглядит так:

library(ggplot2)      
library(scales)
library(tidyverse)
library(dplyr)
library(lubridate)

Deployment3 <- seq(from = as.Date("2021-12-15"), to = as.Date("2021-12-31"), by = "day"); 
deploy3 <- data.frame(count=1:length(Deployment3)); 
deploy3$day <- Deployment3; 
deploy3$year <- format(Deployment3, "%Y");  
deploy3$id <- "Deployment 3"
deploy3$start <- as.Date("2021-12-15"); deploy3$end <- as.Date("2021-12-31"); 

Deployment7 <- seq(from = as.Date("2022-12-17"), to = as.Date("2022-12-31"), by = "day"); 
deploy7 <- data.frame(count=1:length(Deployment7)); deploy7$day <- Deployment7; 
deploy7$year <- format(Deployment7, "%Y");  deploy7$id <- "Deployment 7";
deploy7$start <- as.Date("2022-12-17"); deploy7$end <- as.Date("2022-12-31");

Deployment7b <- seq(from = as.Date("2023-01-01"), to = as.Date("2023-01-31"), by = "day"); 
deploy7b <- data.frame(count=1:length(Deployment7b)); deploy7b$day <- Deployment7b; 
deploy7b$year <- format(Deployment7b, "%Y");  deploy7b$id <- "Deployment 7"
deploy7b$start <- as.Date("2023-01-01"); deploy7b$end <- as.Date("2023-01-31")

deployments <- bind_rows(deploy3,deploy7,deploy7b)
deployments$start <- as.Date(deployments$start)
deployments$end <- as.Date(deployments$end)

ggplot(deployments) + 
geom_tile(aes(x = start, y = as.factor(year), width = end - start), height = 0.4) +
scale_x_date(date_labels = "%b", date_breaks = "1 month", expand = c(0, 0)) +  
labs(x = "Month", y = "Year") +
theme_minimal() +
theme(axis.text.x = element_text(angle = 45, hjust = 1))

Если бы у кого-нибудь была идея или предложение сделать рис.2 более похожим на рис.1, было бы здорово.

Спасибо и удачи!