用R语言让你的可视化图表动起来!动起来!！附源代码

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1. ### 声  明：本内容为作者借助R3.6.3和Rstudio及相关包制作而成，仅供学习交流，咨询交流加wx：huyanggs 或Email：huyanggs@hotmail.com
   
2. ### 主  题：动态折线图 ·中国2000-2019年国内生产总值（GDP）及分产业变动
   
3. ### 数据源：中国国家统计局·国家数据
   
4. ### author：@拴小林Nobeli
   
5. ### 时  间：2020/3/22
   
6. 
   
7. 
   
8. # 1.loading packages
   
9. library(ggplot2)
   
10. library(readxl)
    
11. library(av) #动态输出批量图为视频
    
12. library(tidyr)
    
13. 
    
14. # 2.读取数据和整理数据
    
15. setwd("C:/Users/ysl/Desktop/")
    
16. dt <- readxl::read_xlsx("C:/Users/ysl/Desktop/CHINA_GDP.xlsx")
    
17. dt_s <- dt[,c(1,3:6)]
    
18. 
    
19. 
    
20. # 3.转换数据结构+变量标签化
    
21. dt_tidyr <- gather(dt_s, GDPs, value,-Year)
    
22. dt_tidyr$GDPs <- factor(dt_tidyr$GDPs, levels = c("GDP", "First_GDP", "Second_GDP", "Third_GDP"),
    
23.                         labels = c("国内生产总值（GDP·万亿）", "第一产业GDP（万亿）", "第二产业GDP（万亿） ", "第三产业GDP（万亿）"))
    
24. 
    
25. # 3.将逐年数据批量print，并保存到自定义函数makeplot中
    
26. # 注释：学习av包，可 ??av_demo 和 ??av_capture_graphics
    
27. makeplot <- function(){
    
28.   dtlist <- NULL
    
29.   j = NULL
    
30.   for (i in 2000:max(dt_tidyr$Year)) {
    
31.     j = i-1999
    
32.     dtlist[[j]] <- dt_tidyr[dt_tidyr$Year %in% c(2000:i),]}
    
33. 
    
34. 
    
35.   lapply(dtlist, function(data){
    
36.     p <- ggplot(data, aes(x = Year, y = value, group = GDPs, color = GDPs, shape = GDPs)) +
    
37.       geom_point(labels = data$value) +
    
38.       geom_line(color = "grey") +
    
39.       scale_x_continuous(limits = range(dt_tidyr$Year)) +
    
40.       scale_y_continuous(limits = range(dt_tidyr$value)) +
    
41.       labs(x = "年份", y = "产值") +
    
42.       ggtitle("中国2000至2019年国内生产总值",
    
43.               subtitle = paste0(max(data$Year),"年国内生产总值",data[which(data$Year == max(data$Year)),][which(data[which(data$Year == max(data$Year)),]$GDPs == "国内生产总值（GDP·万亿）"),"value"],"万亿元")) +
    
44.       theme_classic() +
    
45.       theme(plot.title = element_text(color = "black", size = 16, vjust = 0.5,hjust = 0.5),
    
46.             legend.position = "bottom", legend.text = element_text(size = 8))
    
47. 
    
48.     print(p)
    
49.   })
    
50. }
    
51. 
    
52. # 4.将图片数据输出为视频
    
53. # library(av)
    
54. video_file <- file.path(getwd(), "output.mp4") #设置保存路径及文件名
    
55. av_capture_graphics(makeplot(), video_file, 1280, 720, res = 144, vfilter = "framerate=fps=10") #参数意义可??av_capture_graphics学习
    
56. av::av_media_info(video_file)

复制代码

源数据及R代码：

链接：https://pan.baidu.com/s/1xn4Fq2DvMOTZMQAvrFAB1A

提取码：fj2a

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

最后运行时可以再加上

1. utils::browseURL(video_file)

复制代码

命令，运行视频

crystal8832 发表于 2020-3-23 11:47
最后运行时可以再加上命令，运行视频