Graph of Euclid translations. That shows when they were translated. Data from wikipedia https://en.wikipedia.org/wiki/Euclid%27s_Elements#Translations

euclid.r

library(tidyverse)
library(ggflags)


e <- read_csv('euclidtrans.csv')
e$Year = as.numeric(as.character(e$Year))
head(e)

# Basic line plot with points
p<-ggplot(data=e, aes(x=Year, y=Language,  color=Language, country=iso)) +
  #geom_point()+
  geom_flag() +
  scale_x_continuous(breaks=seq(1500, 2000, 50))+
scale_y_discrete(limits=rev(c('Latin','Italian','German','French','English','Spanish','Arabic','Dutch','Chinese','Sanskrit','Russian','Swedish','Modern Greek','Danish','Portuguese','Hebrew','Polish','Hungarian','Japanese','Czech','Croatian','Turkish')))

#p<-p + scale_color_manual(values=c("#999999", "#E69F00", "#56B4E9"))

p<-p + ggtitle("Printed Translations of Euclid") +
  xlab("Year") + ylab("Language")
#p<-p + theme_bw()
p<- p+   theme(
  plot.title = element_text(color="black", size=16, face="bold",hjust = 0.5),
        panel.background = element_rect(fill = "white",
                                colour = "white",
                                size = 0.5, linetype = "solid"),
  )


p

ggsave("Euclid.png",width = 10, height =6, dpi = 300)

EuclidTrans.csv