你好，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. 
   

4. library(ggplot2)

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

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

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

8.    scale_fill_brewer(palette="Set3") +

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

往期精彩

• 中国人民的翻墙情结

• enrichment map

• ggplot2分面之像素艺术

• 虽然撤稿了，但足以令人心寒！

• 记一次搞死linux又医活的经历

• 听说有SCI文章只要两天就接收？还是洗洗睡吧！

• geom_pokemon: 使用pokemon画图

• s07 - Finding a Shared Motif