library(tidyverse)

data <- read_csv("calendar_2025_with_rand.csv")
data <- data %>%
  mutate(month_name = format(date, "%B"))

month_positions <- data %>%
  group_by(month_name) %>%
  summarize(min_x = min(x),
            max_x = max(x),
            min_y = min(y)) %>%
  mutate(label_x = (min_x + max_x) / 2, label_y = min_y - 1)

ggplot() +
  geom_tile(data = data,
            aes(x = x, y = y, fill = Rand),
            color = "white") +
  scale_fill_gradient(low = "lightblue", high = "darkblue") +
  geom_text(
    data = data,
    aes(x = x, y = y, label = day),
    color = "white",
    size = 2.5
  ) +
  scale_y_reverse() +
  geom_text(
    data = month_positions,
    aes(x = label_x, y = label_y, label = month_name),
    color = "black",
    size = 4,
    fontface = "bold"
  ) +
  labs(title = "Календарь на 2025 год") +
  theme_void() +
  theme(
    axis.text = element_blank(),
    axis.ticks = element_blank(),
    panel.grid = element_blank(),
    plot.margin = unit(c(.5, .5, .5, .5), "cm",),
    legend.position = "bottom",
    plot.title = element_text(size = 14)
  )

ggsave("calendar2025.png", bg = "white", width = 6, height = 6, dpi = 300)

sapply(1:25,
       \(x) download.file(
         sprintf("https://digitalocean.ru/files/%02d.pdf", x),
         sprintf("%02d.pdf", x),
         method = "libcurl",
         mode = "wb"
       ))

ggplot(data, aes(x, y, color)) + geom_line()