1812：拿破仑的东征冒险
上个月，2017年“信息之美”可视化大奖揭晓，数据工场公众号“数可视”对获奖作品做了翻译介绍，大量截图动图帮我们一览获奖作品，见《今年最好看的数据可视化都在这里了丨干货》。
其中，有一幅作品是对可视化经典作品《拿破仑东征图》运用现代化手段重新制作。
《拿破仑东征图》是数据可视化的经典之作，但凡讲可视化的都会拿它来举例。图表直观反映了拿破仑40万大军出发东征，最后只回来1万人的过程。底部还有温度曲线图对应，温度是影响这场战争的重要因素。
《1812：拿破仑的东征冒险》，该项目以法国工程师 Charles Joseph Minard 在 1869 年描绘的拿破仑东征路线图为基础，致力于研究俄历史上最具戏剧性的一页—— 1812 年的爱国战争。
文中的统计图展示了拿破仑的俄罗斯战役和最终导致他的军队失败的所有阶段的图片。塔斯社追寻着法国军队的路线，将Minard的统计数据与最新的发现和预估数据进行比较，并同时叙述战争中的关键事件。
作品使用现代可视化技术制作，地图上动图叙事，金奖作品，无需多言，快去玩吧：点击文末【阅读原文】，体验获奖作品《1812：拿破仑的东征冒险》。
***
以前在了解 R 语言 ggplot 做图的时候，练习过这个图，有行军路线的经纬度、士兵人数的数据，ggplot 画图只需要1句话：
setwd("D:\\20 学习\\R绘图学习\\ggplot2-minard-gallery")
library(ggplot2)
troops <- read.table("troops.txt", header=T)
cities <- read.table("cities.txt", header=T)
temps <- read.table("temps.txt", header=T)
temps$date <- as.Date(strptime(temps$date,"%d%b%Y"))
ggplot(cities, aes(x = long, y = lat)) +
geom_point() +
geom_text(aes(label = city), hjust=0, vjust=1, size=4) +
geom_path(data=http://www.gunmi.cn/v/troops, aes(size = survivors, colour = direction, group = group), lineend="round") +
scale_size(range = c(1, 10)) +
scale_colour_manual(values = c("#D8C197","black")) +
scale_x_continuous(limits = c(24, 39))
得到的路线图如下：
如要练习此图，可回复 “拿破仑” 下载练习数据文件（需安装R、ggplot）。
点击【阅读原文】，体验获奖作品《1812：拿破仑的东征冒险》