R可视化——基于ggplot2绘制时间序列图

时间序列图也叫推移图，是一种以时间轴为横轴，变量为纵轴的图形，主要用于观察变量是否随时间变化而呈某种趋势，是用于观察数据随时间发生变化的一种好方法。

加载包

rm(list=ls())#设置工作环境setwd("D:\\桌面\\时间序列图")#安装包# install.packages("ggplot2")# install.packages("ggprism")#加载包library(ggplot2)library(ggprism)

加载数据

#加载数据df <- read.table(file="data.txt",sep="\t",header=T,check.names=FALSE)head(df)#预览数据

绘图

1、绘制一月份的时间序列图

#Janp1<-ggplot(df)+ geom_line(aes(date, Jan),size=0.8,color="red")+ theme_prism(palette = "candy_soft",#主题设置 base_fontface = "plain", base_family = "serif", base_size = 16, base_line_size = 0.8, axis_text_angle = 45)+ scale_x_continuous(breaks=seq(1,31, 3))+#设置X轴标签范围及间隔 labs(title = "Jan", # 定义主标题 x = "Date", # 定义x轴文本 y = "Value")# 定义y轴文本p1

2、二月份

#Febp2<-ggplot(df)+ geom_line(aes(date, Feb),size=0.8,color="green")+ theme_prism(palette = "candy_soft",#主题设置 base_fontface = "plain", base_family = "serif", base_size = 16, base_line_size = 0.8, axis_text_angle = 45)+ scale_x_continuous(breaks=seq(1,31, 3))+#设置X轴标签范围及间隔 labs(title = "Feb", # 定义主标题 x = "Date", # 定义x轴文本 y = "Value")# 定义y轴文本p2

3、三月份

#Marp3<-ggplot(df)+ geom_line(aes(date, Mar),size=0.8,color="blue")+ theme_prism(palette = "candy_soft",#主题设置 base_fontface = "plain", base_family = "serif", base_size = 16, base_line_size = 0.8, axis_text_angle = 45)+ scale_x_continuous(breaks=seq(1,31, 3))+#设置X轴标签范围及间隔 labs(title = "Mar", # 定义主标题 x = "Date", # 定义x轴文本 y = "Value")# 定义y轴文本p3

4、四月份

#Aprp4<-ggplot(df)+ geom_line(aes(date, Apr),size=0.8,color="yellow")+ theme_prism(palette = "candy_soft",#主题设置 base_fontface = "plain", base_family = "serif", base_size = 16, base_line_size = 0.8, axis_text_angle = 45)+ scale_x_continuous(breaks=seq(1,31, 3))+#设置X轴标签范围及间隔 labs(title = "Apr", # 定义主标题 x = "Date", # 定义x轴文本 y = "Value")# 定义y轴文本p4

5、拼图

library(cowplot)plot_grid(p1,p2,p3,p4,ncol=2)

爱我请给我好看!

更多推荐