Skip to content

Instantly share code, notes, and snippets.

@cavedave

cavedave/EuclidTrans.csv

Last active September 27, 2022 22:38
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save cavedave/d8288f562f2fdd9a9fa5bfed1897f2ae to your computer and use it in GitHub Desktop.
Save cavedave/d8288f562f2fdd9a9fa5bfed1897f2ae to your computer and use it in GitHub Desktop.
Download ZIP
Graph of Euclid translations. That shows when they were translated. Data from wikipedia https://en.wikipedia.org/wiki/Euclid%27s_Elements#Translations
Raw
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)
Raw
EuclidTrans.csv
Year Language taxis iso
1505 Latin 1 va
1543 Italian 1 it
1557 Latin 1 va
1558 German 1 de
1562 German 1 de
1562 German 1 de
1564 French 1 fr
1570 English 1 gb
1572 Latin 1 va
1575 Italian 1 it
1576 Spanish 1 es
1594 Arabic 1 sa
1604 French 1 fr
1606 Dutch 1 nl
1607 Chinese 1 cn
1613 Italian 1 it
1615 French 1 fr
1617 Dutch 1 nl
1637 Spanish 1 es
1639 French 1 fr
1651 German 1 de
1651 English 1 gb
1660 English 1 gb
1661 English 1 gb
1663 Italian 1 it
1672 French 1 fr
1680 Italian 1 it
1685 English 1 gb
1689 Spanish 1 es
1690 Italian 1 it
1694 German 1 de
1695 Dutch 1 nl
1697 German 1 de
1702 Dutch 1 nl
1705 English 1 gb
1708 English 1 gb
1714 German 1 de
1714 English 1 gb
1720 Sanskrit 1 in
1731 Italian 1 it
1738 Russian 1 ru
1744 Swedish 1 se
1749 Italian 1 it
1749 Modern Greek 1 gr
1745 Danish 1 dk
1752 Italian 1 it
1756 English 1 gb
1763 Dutch 1 nl
1768 Portuguese 1 pt
1773 German 1 de
1780 Hebrew 1 il
1781 English 1 gb
1781 English 1 gb
1789 Russian 1 ru
1795 English 1 gb
1803 Danish 1 dk
1804 French 1 fr
1807 Polish 1 pl
1807 German 1 de
1818 Italian 1 it
1820 Modern Greek 1 gr
1826 English 1 gb
1828 German 1 de
1828 English 1 gb
1833 German 1 de
1833 English 1 gb
1836 Swedish 1 se
1844 Swedish 1 se
1850 Swedish 1 se
1850 Swedish 1 se
1862 English 1 gb
1865 Hungarian 1 hu
1873 Japanese 1 jp
1880 Russian 1 ru
1897 Danish 1 dk
1901 German 1 de
1907 Czech 1 cz
1908 English 1 gb
1939 English 1 gb
1953 Modern Greek 1 gr
1999 Croatian 1 hr
2009 Portuguese 1 pt
2019 Turkish 1 tr
2022 Modern Greek 1 gr
@cavedave
Copy link
Author

Euclid

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment