lines函数是R语言中常见的一个初级图像绘制函数,简单而实用。但偶尔会出现通过lines函数增加的线没有显示在原有的plot上的情况,其中的一个原因是对于原plot函数的yilm没有定义,这种情况一般出现在原plot上绘制的变量和新增加的lines函数中包含的变量在其值上差距较为悬殊时。
举一个例子(例子转自stackoverflow) ,此时可以看到两个变量在数量级上具有明显差距。
> tr_error
[1] 0.2314984 0.2314990 0.2314981 0.2314955 0.2314955 0.2314943 0.2314912
[8] 0.2314924
> tst_error
[1] 0.001461264 0.001461767 0.001461001 0.001459936 0.001459626 0.001458594
[7] 0.001457719 0.001458288
> plot(tst_error, type='l')
> lines(tr_error, type='l', col='red')
如果想自己尝试一下可以粘贴以下的代码段。
tr_error<-c(0.2314984,0.2314990,0.2314981,0.2314955,0.2314955,0.2314943,0.2314912,0.2314924)
tst_error<-c(0.001461264,0.001461767,0.001461001,0.001459936,0.001459626,0.001458594,0.001457719,0.001458288)
plot(tst_error, type='l')
lines(tr_error, type='l', col='red')
很明显,最后一行lines函数并没有生成其应该生成的折线,此时,应该对plot函数进行修改,使plot的y轴的范围得到限定。修改后的plot函数如下:
plot(tst_error, type='l', ylim=range( c(tst_error, tr_error) ) )
此时,重新运行代码段,两条线段都出现了,但相比于各个变量内的变化,由于其变量之间的差距过于悬殊,反应变量变化的折线几乎变成了直线。这种情况经常出现,只是该例子中两条线变得平缓的程度相对较大。
参考链接:r - Plot two graphs on one plot. function lines does not work - Stack Overflow