library(ggplot2)
logo <- png::readPNG("logo-mark.png")
ggplot() +
theme_void() +
theme(plot.background =
element_rect(fill = "#EEF3FA", colour = NA)) +
annotate("text", x = 0, y = 0.55, label = "404",
size = 70, fontface = "bold",
colour = "#0D2757") +
annotate("segment", x = -0.04, xend = 0.04,
y = 0.18, yend = 0.18,
linewidth = 2.5, colour = "#F47F09") +
annotate("text", x = 0, y = 0.05,
label = "This event is in the future",
size = 12, fontface = "bold",
colour = "#0D2757") +
annotate("text", x = 0, y = -0.08,
label = "Check back after it has taken place.",
size = 8, colour = "#4B5568") +
annotation_raster(logo, xmin = -0.03, xmax = 0.03,
ymin = -0.32, ymax = -0.2)
