其他
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轴文本p12、二月份
#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轴文本p23、三月份
#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轴文本p34、四月份
#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轴文本p45、拼图
library(cowplot)plot_grid(p1,p2,p3,p4,ncol=2)爱我请给我好看!