--- title: "折线图" output: html_document: number_sections: TRUE toc: TRUE toc_float: TRUE code_folding: show fig_width: 7 fig_height: 4.5 theme: united highlight: tango ---   折线图是主要针对时间序列的统计图，折线图可以显示随时间而变化的连续数据。 # 绘制简单折线图 ***   该数据为陕西省西安市雁塔区2018年6月25日中午11时到6月26日11时的温度变化数据，得知气象是阴雨天气，结合温度发现波动性明显，预测雨天影响温度变化，这与气态转变为液态的过程，初步推断形成的液化现象会对外界放热等可能有一定的联系。 ```{r,echo=TRUE,message=FALSE,warning=FALSE} library(readxl) # 读取xlsx格式数据的加载包 data=read_excel("D:/TASK/温度.xlsx") str(data) #查看数据结构信息 ```   由数据结构信息得知，该数据是取陕西省西安市雁塔区6月25日中午11时到6月26日11时的温度变化数据，数据含有两个变量（字段），分别为时间和温度，温度数据范围大多在24~31度之间波动。 基本格式：**plot(数据 $X,数据 $Y)** ```{r} par(mfrow=c(1,2))#设置画图为1*2的格式 plot(data$Time,data$Temperature,col="red",pch=20,xlab="时间",ylab="温度")#带点的折线 grid(nx=NA, ny=8,lwd=1,lty=2,col="black") #添加网格线 plot(data$Time,data$Temperature,type="l",lwd=2,col="lightgreen",xlab="时间",ylab="温度")# 加了type="l"变成实线的折线 grid(nx=NA, ny=8,lwd=1,lty=2,col="black") ```   通过折线图可以看出最高温度是31度，最低为24度，平均温度为27度。 ```{r} plot(data$Time,data$Temperature,type="l",col="lightgreen",lwd=2,xlab="时间",ylab="温度")#实线 points(data$Time,data$Temperature,col="red",pch=20,xlab="时间",ylab="温度") #实线和点线 grid(nx=NA, ny=8,lwd=1,lty=2,col="black")#添加网格线 ```   该图是将折线图的实线与带点的折线合并在一起了，可以看出最高温度是31度，最低为24度，平均温度为27度， # 添加置信区域 *** 1800～2011年间全球气候温度异常数据 ```{r,echo=TRUE,message=FALSE,warning=FALSE} library(gcookbook)#加载数据集 str(climate) ``` ```{r,echo=FALSE,message=FALSE,warning=FALSE} library(knitr) # 加载knitr包，使用kable函数,使得表格更加美观 library(readxl) data=read_excel("D:/TASK/气候数据.xlsx") kable(head(data ,7)) ``` ```{r} clim<-subset(climate,Source == "Berkeley",#筛选 select=c("Year", "Anomaly10y","Unc10y")) str(clim) ``` 1）以阴影区为置信区间 ```{r,echo=TRUE,message=FALSE,warning=FALSE} library(ggplot2) ggplot(clim,aes(x=Year,y=Anomaly10y))+geom_line()+ #构造变量x和y，画出折线图 geom_ribbon(aes(ymin=Anomaly10y-Unc10y,ymax=Anomaly10y+Unc10y),alpha=0.1)#画上下限，alpha调节透明度（数字越高越黑） ```   从上图来看，阴影部分的颜色是浅灰色，但是看起来几乎透明，通过设定了参数alpha=0.1，将阴影部分的透明度设定为90%。利用10年间平均水平温度（Anomaly10y）与10年间不确定的温度（Unc10y）的差值与求和求得其阴影部分。 2）虚线表示置信区域的上下边界 ```{r} ggplot(clim,aes(x=Year,y=Anomaly10y))+geom_line()+#构造变量x和y，画出折线图 geom_line(aes(y=Anomaly10y-Unc10y),colour="red",linetype="dotted")+ # 下限,linetype表示线的形状 geom_line(aes(y=Anomaly10y+Unc10y),colour="grey",linetype="dotted") #上限 ```   从上图来看，利用10年间平均水平温度（Anomaly10y）与10年间不确定的温度（Unc10y）的差值与求和，求得其上下限。其中上限为灰色的虚线，下限设置为红色的虚线。 # 本章汇总 *** ```{r,echo=FALSE,message=FALSE,warning=FALSE} library(knitr) # 加载knitr包，使用kable函数,使得表格更加美观 library(readxl) data=read_excel("D:/TASK/参数/折线图参数.xlsx") kable(head(data ,12)) ```