折线图
2018-09-03
2018-09-03
---
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))
```