你好，2019元素周期表年

元素周期表150周年，今年被称之为国际元素周期表年，那么让我们用 R画一个元素周期表吧。想当年初中的时候，背这个周期表也是费了大力气的，而且当年用的是方言背的，至今仍能背出来一点，但转换成普通话的话，就背不出来了。

初学化学时，相信大家各种做死是有的，我们那时候就去偷老师的镁条，当晚自习关灯的时候，在教室里点燃，效果十分的好。我用过碱去腐蚀叶肉，把叶脉留下来当书签，买过浓盐酸，没买到浓硝酸，不然可能王水就配起来了。

1. library(httr)

2. dd <- read.table(text=content(GET("https://gist.githubusercontent.com/MrFlick/c1183c911bc5398105d4/raw/715868fba2d0d17a61a8081de17c468bbc525ab1/elements.txt")), sep=",", header=TRUE)

3. library(ggplot2)

4. ggplot(dd, aes(Column, -Row)) +

5.    geom_tile(data=dd, aes(fill=GroupName), color="black") +

6.    geom_text(aes(label=ElementSymbol)) +

7.    scale_fill_brewer(palette="Set3") +

8.    theme_void() + theme(legend.position='bottom')

---

往期精彩