作者：小帮手
来源：对你有点帮助
在上一篇文章中，我们用世界银行的例子介绍了如何绘制散点图。线形图怎么样？
画一个折线图如果你把散点图上的点从左到右连接起来，你会得到一个折线图。今天我们就以R中包含的Orange数据集为例，来学习一下如何绘制折线图。数据集包含五种柑橘的树龄和年轮数据。为了研究柑橘树的年轮是如何随着树龄变化的，先画一个散点图来看看：
#看第一棵柑橘，提取第一棵树的数据，保存在t1中。t1-subset(Orange，Tree==1)对此进行标记，以查看subset()的功能。
#绘制散点图(t1 $年龄，t1 $周长，xlab='年龄(天数)'ylab='周长(毫米)'main='橘子树1生长')，然后绘制折线图：
#绘制折线图plot(t1age，t1circumference，xlab=' age (days)'ylab=' circumference (mm)'main=' orange tree1growth 'type=' b ')。可以发现plot()函数还是用来绘制线图的。它的代码只比散点图多了一个设置图形外观的命令：type='b '而' b '表示用线连接点，所以我们得到下图：
折线图的图形外观有很多种，都可以通过type命令来完成。下表显示了类型的可选值：
在上表中选择各种类型的类型值，可以得到各种折线图：
尝试调整图形。
虽然上述图形已经可以准确表达数据信息，但有时自动生成的图形可能不符合要求。
例如，我们想将上面的散点图和折线图放在同一个图表中，以便于比较，或者改变字体、颜色等.此时，在用plot()绘制之前，可以使用par()函数设置要更改的参数：
#设置par()函数par (mfrow=c (1，2)，bty=' l 'cex.main=1.5，col.main='深天蓝4 'font.lab=2，family=' times new Roman') #绘制散点图plot (t1 $ age，t1 Xlab='年龄(天)'ylab='周长(mm)'main='橘子树1生长')#绘制线图(t1 $ age，t1 $周长，Xlab='年龄(天)'Ylab='周长(mm) col=' deep sky blue 4 'type=' b ')你可以把这段代码复制到R里面先运行一下(记得先用本文开头的方法生成t1对象)，看看会发生什么？
Par(m flow=c(1，2)，bty=' l 'cex.main=1.5，col.main='深天蓝4 'font.lab=2，family=' times new Roman') Par()是一个用于在r中设置图形参数的函数。
在上面的代码中，mfrow是图形的整体布局命令，不是针对某个特定的图形，而是针对整个绘图区域的布局。定义一个整体有若干行和列的图，其赋值形式为C(行数和列数)；
Bty是设置图形边框类型的函数，其值和作用如下：
Cex.main:设置标题文本的放大倍数。还可以使用cex.axis和cex.lab分别设置坐标轴的刻度值和名称文字的放大倍数；
Col.main:设置文本标题的颜色。你能猜出如何设置坐标轴的刻度值和名称的颜色吗？欢迎留言~
Font.lab:设置坐标轴名称的字体：
Family:设置图形中所有文本的字体。
最终的数字如下。你还能想到哪些需要改进或调整的地方？我们将来可以教它。
