R语言学习记录-ggplot2练习-经济学人统计图临摹（2） -伪双坐标轴

今天练习折线图

数据我就不模仿了，随便找了个时间序列的数据集 airquality，并截取5月份的数据作图，打算做两条线，一条表示风力，一条表示温度。颜色用拾色器选取。

bg_col<-rgb(218/255,230/255,237/255)  
blue1<-rgb(0/255,76/255,102/255)  
blue2<-rgb(0,156/255,215/255)  
blue3<-rgb(129/255,208/255,242/255) ##预设颜色
library(ggplot2) 
data(airquality)  ## 加载空气质量数据集
airquality5<-airquality[airquality$Month == 5,] ##截取5月份的数据
library(tidyr) ##开始对数据进行重构，用到tidyr包
airquality5_tidy<- gather(airquality5, measure, value, -c(Ozone, Solar.R, Month, Day)) ##把 wind 和temp 放到一列，方便绘图
p<- ggplot(airquality5_tidy, aes(x=Day, y = value , color = measure)) + geom_line(size = 1.5) ##绘制基本图形
p<- p + labs(title = "Wind and Temperature measurements" ,subtitle = "May") ##加标题和副标题
p<- p+ theme(legend.position