我们以绘制五种橘树随时间推移的生长状况为例，逐步展示一个更复杂折线图的创建过程。数据来源于R自带的数据集。

首先调取数据Orange

data(Orange)

接着将因子转化为数值型并查看变量值的范围

###将因子转化为数值型##

Orange$Tree <- as.numeric(Orange$Tree)
ntrees <- max(Orange$Tree)

xrange <- range(Orange$age)
yrange <- range(Orange$circumference)

创建图形

注意， plot() 和 lines() 函数工作原理并不相同。 plot() 函数是在被调用时创建一幅新图，
而 lines() 函数则是在已存在的图形上添加信息，并不能自己生成图形。
因此， lines() 函数通常是在 plot() 函数生成一幅图形后再被调用。如果对图形有要求，
你可以先通过 plot() 函数中的 type="n" 选项来创建坐标轴、标题和其他图形特征，然后再使用
lines() 函数添加各种需要绘制的曲线。

###创建图形##
plot(xrange,yrange,
     type = "n",
     xlab = 'Age(days)',##x轴名称
     ylab = 'Circumference(mm)'##y轴名称
     )
colors <- rainbow(ntrees)###线条颜色
linetype <- c(1:ntrees)##线条类型
plotchar <- seq(18,18+ntrees,1)##待会用来设置绘图符号设置的参数

给plot图添加线条

###添加线条##用for循环语句
for(i in 1:ntrees){
  tree <- subset(Orange,Tree==i)###选取第i种数的数据
  lines(tree$age,tree$circumference,
        type='b',
        lwd=2,###线条宽度
        lty=linetype[i],
        col=colors[i],
        pch=plotchar[i]###设置绘图符号设置的参数
        )
}

添加标题

title('Tree Growth','example of line plot')

添加图例

legend(xrange[1],yrange[2],
       1:ntrees,
       cex=0.8,
       col=colors,
       pch=plotchar,
       lty=linetype,
       title = 'Tree'
       )

plot() 函数先用来创建空图形，只设定了轴标签和轴范围，并没有
绘制任何数据点，每种橘树独有的折线和点都是随后通过 lines() 函数来添加的。

展示五种橘树生长状况的折线图

杰少吃屁.png

可以看到，Tree 4和Tree 5在整个时间段中一直保持着最快的生长速度，而且Tree 5在大约664天的时候超
过了Tree 4。