R语言ggplot2包之画折线图

偏执的太偏执、 2022-12-02 15:02 210阅读 0赞

折线图中涉及到gcookbook的包。需要下载安装，在Rstudio中用install(“gcookbook”)即可安装，安装后运行程序即可显示相应的折线图。

# 引言 #

折线图一般用于描述一维变量随着某一连续变量变化的情况，连续变量通常为时间。换句话说，折线图最适合描述时间序列数据的变化情况。当然随着离散变量变化也是可以的，不过这个离散变量必须是有序的。

# 画一条折线图 #

一条基本的折线图还是比较简单的，只要在ggplot里的aes传入x,y数据且geom指定为line线即可。如果x是连续变量，直接传入即可。如果x是离散变量，此时x需要因子化，并在aes里设定group参数为1.

线可以是实线，也可以是点状的，可以用个**linetpye**进行设定，参数可以选择**solid, dashed, dotted**等。

library(gcookbook)
    library(ggplot2)
    #连续变量的情况
    ggplot(BOD, aes(x=Time, y=demand)) + geom_line()
    #离散变量的情况
    BOD1 <- BOD # 赋值数据
    BOD1$Time <- factor(BOD1$Time)#变量因子化
    ggplot(BOD1, aes(x=Time, y=demand, group=1)) + geom_line(linetype="dotted")
     
      
     
      
       1
       2
       3
       4
       5
       6
       7
       8

当然如果需要改变y轴的范围，可以用在后面加入**ylim(a, b))**进行设置。  
![这里写图片描述][20150712222648581]  
![这里写图片描述][20150712222659483]

# 给折线图增加点 #

有时候我们需要在折线图上显示对应x轴的点数据，从而可以更加清晰的辨别原始数据,这特别适合数据比较稀疏的情况，比如上述没有6的数据情况。我们直接在代码后面加上**geom\_point()**就可以了。如果想改变点的大小和形状，控制size和shape这两个参数就可以了。

ggplot(BOD, aes(x=Time, y=demand)) + geom_line() + geom_point(size=4, shape=20)
     
      
     
      
       1

![这里写图片描述][20150712222751692]

# 画多条折线图 #

有时候我们想对某一离散变量进行分组，画出多个折线图进行比较。

supp1=c("OJ","OJ","OJ","VC","VC","VC")
    dose1=c(0.5,1.0,2.0,0.5,1.0,2.0)
    length1=c(13.23,22.70,26.06,7.98,16.77,26.14)
    tgg=data.frame(supp1,dose1,length1)
    ggplot(tgg, aes(x=factor(dose1), y=length1, colour=supp1,group=supp1)) + geom_line(size=2)#x为药剂剂量，并非连续型变量
     
      
     
      
       1
       2
       3
       4
       5

![这里写图片描述][20150712222802875]  
有时候你还想在比较的两条线给加上数据点,可以在**aes**里面设置**shape**或者**fill**参数，两种方法得出的图大致相同，除了点形状差异。前者，两条线上的点形状各异，后者点形状相同。

#设置shape参数 ggplot(tgg, aes(x=dose1, y=length1, color=supp1,shape=supp1)) + geom_line() +geom_point(size=4) #设置fill参数 ggplot(tgg, aes(x=dose1, y=length1, color=supp1,fill=supp1)) + geom_line() +geom_point(size=4)
     
      
     
      
       1
       2
       3
       4

![这里写图片描述][20150712222828957]  
![这里写图片描述][20150712222837882]  
细心的你会发现，两条线上游数据重叠了，如果想区分开，使用**position\_dodge**函数是个好办法。

ggplot(tgg, aes(x=dose1, y=length1, shape=supp1)) + geom_line(position=position_dodge(0.2)) + # Dodge lines by 0.2 geom_point(position=position_dodge(0.2), size=4)#控制两线各向左向右移0.2的聚类，线也移，点也移，永远不分开。
     
      
     
      
       1
       2
       3

![这里写图片描述][20150712222927425]

[20150712222648581]: /images/20221123/cdd2ca2d770f4724b4ca607204868cc1.png
[20150712222659483]: /images/20221123/a3e5d81000f04a35bd64d9972a8f485c.png
[20150712222751692]: /images/20221123/a1ae2da5d936495cb7cd2abaa6832ff9.png
[20150712222802875]: /images/20221123/437e7a28faee43b186d46004e26cf807.png
[20150712222828957]: /images/20221123/53f2cf665f374ce38e5b4ec91f3d7b6c.png
[20150712222837882]: /images/20221123/bf0ed59902ea4688b204eee6f002a47a.png
[20150712222927425]: /images/20221123/a1d3dfc319c94bc99d98e523c71faf6b.png