library(calendR)
library(tidyverse)
# Data
data <- c(55:154)
weekdays_lbls <- c("Пн", "Вт", "Ср", "Чт", "Пт", "Сб", "Вс")
calendR(year = 2022, title = "100 days of war", text.size = 10, 
        day.size = 3, weeknames = weekdays_lbls,
        lty = 0, papersize = "A5", font.family = "Open Sans", 
        days.col = "gray90", 
        title.size = 28, title.col = "red", 
        text.col = "gray90",
        special.days = data,
        special.col = "black",
        orientation = "portrait")
ggsave("100days.png", dpi = 150, width = 7, height = 9)