• R语言
  • 想见识一下R语言之美

5 天 后

tctcab 请问能贴一下GDP图的代码,或者大致解释一下是怎么做的吗?谢谢。

    RyeyumoR

    我那个回复里的“动画”是超链接,代码在链接里,就是这个:

    https://www.r-graph-gallery.com/271-ggplot2-animated-gif-chart-with-gganimate.html

    # Get data:
    library(gapminder)
     
    # Charge libraries:
    library(ggplot2)
    library(gganimate)
     
    # Make a ggplot, but add frame=year: one image per year
    ggplot(gapminder, aes(gdpPercap, lifeExp, size = pop, color = continent)) +
      geom_point() +
      scale_x_log10() +
      theme_bw() +
      # gganimate specific bits:
      labs(title = 'Year: {frame_time}', x = 'GDP per capita', y = 'life expectancy') +
      transition_time(year) +
      ease_aes('linear')
    
    # Save at gif:
    anim_save("271-ggplot2-animated-gif-chart-with-gganimate1.gif")

      tctcab
      当初在 Hans Rosling 的 TED 演讲上第一次看到这个数据集的动态展示,感到震惊---毛泽东让中国人强起来,邓小平让人富起来,这两句话第一次被如此直观地展示在我眼前。让我想起 yihui 在古代统计图形里引的那句话:

      该图所展现出的雄辩对历史学家的笔是一种极大的挑战。

        Liechi

        还是第一次看这个演讲,他的可视化真是很有启发。

        tctcab 您好,我在运行您给出的代码是出现了下面的问题,您知道怎么解决吗?

        Warning message:
        file_renderer failed to copy frames to the destination directory

        Save at gif:

        anim_save("271-ggplot2-animated-gif-chart-with-gganimate1.gif")
        错误: The animation object does not specify a save_animation method