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

加载包

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

加载数据

#加载数据df <- read.table(file="data.txt",sep="	",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)

更多精彩欢迎大家关注微信公众号【科研后花园】！！！