上一章介绍过动态气泡图的绘制（https://www.jianshu.com/p/702d02d8333b ），这里继续介绍动态条形图、柱形图、点图、折线图的制作，原理和气泡图差不多，非常简单易上手。

一、动态条形图

1.1 加载包

library(gapminder)

library(ggdark)

library(ggplot2)

library(gganimate)

1.2 加载数据集

原始数据：使用gapminder这个数据集合。该数据一共有6列，依次为country（国家）、continent（洲）、year（年份）、lifeExp（生活指数）、pop（人口）、gdpPercap（国内生产总值）。

head(gapminder)

mydata <- gapminder[which(gapminder$country %in% (c('France','Italy','China','Japan','Austria','Brazil','Colombia','Cuba','','Germany','India'))),] #避免图形太冗杂，只筛选部分国家

1.3 绘制动态条形图

使用gganimate这个包绘制动态图：

使用函数transition_time()添加动态，并指定动态依据哪个变量变化，这里动态变量是year：

ps = ggplot(mydata, aes(x=reorder(country, lifeExp),y=lifeExp, fill=country,frame=year)) +

    geom_bar(stat= 'identity', position = 'dodge',show.legend = FALSE) +

    geom_text(aes(label=paste0(lifeExp)),col="black",hjust=-0.2)+

    theme(axis.text.x = element_text(size = 12,angle = 90, hjust = 0.2, vjust = 0.2),legend.position="none") +

    theme(panel.background=element_rect(fill='transparent'))+

  theme(axis.text.y=element_text(angle=0,colour="black",size=12,hjust=1))+

  theme(axis.text.x=element_text(angle=0,colour="white",size=2,hjust=1))+

  theme(panel.grid =element_blank()) +  ## 删去网格线

  theme(axis.text = element_blank()) +  ## 删去所有刻度标签

  theme(axis.ticks = element_blank()) +  ## 删去所有刻度线

  coord_flip()+ #横纵坐标位置转换

  transition_time(year) + #设置动态

  labs(title = paste('Year:', '{frame_time}'),x = '', y ='各国生活指数')+

  ease_aes('linear')

ps

二、动态柱形图

和条形图类似，取消横纵坐标位置转换（coord_flip()），稍微调整横纵坐标即可：

ps = ggplot(mydata, aes(x=reorder(country, lifeExp),y=lifeExp, fill=country,frame=year)) +

    geom_bar(stat= 'identity', position = 'dodge',show.legend = FALSE) +

    geom_text(aes(label=paste0(lifeExp)),col="black",hjust=0)+

    theme(axis.text.x = element_text(size = 12,angle = 90, hjust = 0.2, vjust = 0.2),legend.position="none") +

    theme(panel.background=element_rect(fill='transparent'))+

  theme(axis.text.y=element_text(angle=0,colour="white",size=12,hjust=0))+

  theme(axis.text.x=element_text(angle=0,colour="black",size=9,hjust=0))+

  theme(panel.grid =element_blank()) +  ## 删去网格线

  theme(axis.text = element_blank()) +  ## 删去所有刻度标签

  theme(axis.ticks = element_blank()) +  ## 删去所有刻度线

# Here comes the gganimate specific bits

transition_time(year) +

labs(title = paste('Year:', '{frame_time}'),x = '', y ='各国生活指数')+

ease_aes('linear')

ps

三、动态点图

ps = ggplot(mydata, aes(x=year,y=lifeExp)) +

geom_point(aes(color = country)) +

#Here comes the gganimate specific bits

transition_manual(year, cumulative = T) +

labs(title = paste('Year:', '{current_frame}'),x = '', y ='各国生活指数')+ ease_aes('linear')

四、动态折线图

在点图的基础上加上对点的连线，即是动态折线图啦，只需要加个简单的语句：geom_line(aes(color = country))

ps = ggplot(mydata, aes(x=year,y=lifeExp)) +

    geom_point(aes(color = country)) +

geom_line(aes(color = country)) +

# Here comes the gganimate specific bits

transition_manual(year, cumulative = T) +

labs(title = paste('Year:', '{current_frame}'),x = '', y ='各国生活指数')+

ease_aes('linear')

总结：

用R绘制动态图的方法都是先用ggplot绘制出需要的图形种类，然后使用transition_time函数添加动态变量，这个变量可以是时间、也可以是其他变量，就能得到对应的动态图啦。

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

更多数据相关文章，欢迎关注公众号“大数据会”。