昨天在家观看了巴西里约奥运会的开幕式。尽管从场面和气势上看,此次开幕式远不及北京奥运会,但是它的主题鲜明,创意新颖,尤其是多元文化的交融和绿色环保的理念,让人印象深刻。
![](https://img.haomeiwen.com/i2341232/84dde9709caca443.jpg)
当开幕式进行到环保主题的时候,出现了2个动态图让我眼前一亮,一个是全球二氧化碳排放量的变化:
![](https://img.haomeiwen.com/i2341232/685bc747a3d6eb1a.jpg)
另一个是全球温度的变化:
![](https://img.haomeiwen.com/i2341232/8729fd089afe2759.jpg)
身为一名数据可视化爱好者,怎能放过这样的机会?我的大脑立刻开始分析这两幅图是怎么画出来的:第一幅图是热图,红色表示二氧化碳浓度高的区域。第二幅图是在极坐标系中的折线图,每12个月循环一圈,颜色表示不同的温度。二个图相比较,还是第二幅简单一些,于是我打算自己用R来做一个全球温度变化的动态图。
整个过程分如下几个步骤:
-
在网上搜索全球近一百多年来的温度数据。在Goolge的帮助下,我在NASA的网站上找到了
http://data.giss.nasa.gov/gistemp/graphs/graph_files.html
nasa.jpg
-
有了数据就成功了一半,接下来就是用R来画图。我选择的是plotrix包里面的polar.plot函数。具体代码如下:
code.jpg
-
为了把结果保存为GIF动态图,我使用的是R的animation包里面的saveGIF函数。需要注意的是,系统里还要先安装ImageMagick:
http://imagemagick.org/script/index.php
做完这3步就大功告成啦,下面就是程序输出的GIF图:
![](https://img.haomeiwen.com/i2341232/f06be994c682d62d.gif)
今天的R图秀就到这里,祝中国奥运健儿们争金夺银,取得佳绩!R图秀还会继续关注赛场上的数据,给大家呈现更多的可视化作品。
![](https://img.haomeiwen.com/i2341232/1125a7666a93a557.jpg)
网友评论