library(tidyverse)
library(maps)
ukraine <- map_data("world", region = "Ukraine")
uzhhorod <- data.frame(city = "Uzhhorod", lon = 22.2879, lat = 48.6208)
ggplot(ukraine, aes(x = long, y = lat, group = group)) +
geom_polygon(fill = "white", color = "#0057B7", linewidth = 1) +
coord_quickmap() +
geom_point(data = uzhhorod, aes(x = lon, y = lat),
color = "red", size = 3, inherit.aes = FALSE) +
geom_text(data = uzhhorod, aes(x = lon, y = lat, label = city),
vjust = 0.3, hjust = -0.05, nudge_x = 0.3, fontface = "bold",
inherit.aes = FALSE) +
ggtitle("Ukrainian Biological Data Science Summer School",
subtitle = "July 11 – 25, 2026") +
theme(plot.title = element_text(color = "#0057B7", face = "bold", size = 13),
plot.subtitle = element_text(color = "black", face = "bold", size = 11))
