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)#预览数据

image.png

绘图

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

#Jan
p1<-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

image.png

2、二月份

#Feb
p2<-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

image.png

3、三月份

#Mar
p3<-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

image.png

4、四月份

#Apr
p4<-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

image.png

5、拼图

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

image.png

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