折线图一般用于描述一维变量随着某一连续变量(通常为时间)变化的情况。即折线图最适合描述时间序列数据的变化情况。也可随着有序离散变量变化。本文介绍plot()函数绘制折线图

plot()函数绘制折线图的基本用法

plot(v,#包含数值的向量
     type,#类型采用值“p”仅绘制点，“l”仅绘制线和“o”绘制点和线
     col, #用于给点和线的颜色
     xlab,#xlab是x轴的标签
     ylab #ylab是y轴的标签
     )

案例

简单折线图

#创建数据/数据纯属虚构
v <- c(1,2,3,7,16,28,52,60)
#绘制折线图
plot(v,type = "o")

#对折线图进一步修改和完善
plot(v,
     type = "o",
     col = "red",
     xlab = "Month",
     ylab = "降水量(mm)",
     main = "盐池县月平均降水量")

分组折线图

可以通过使用lines()函数在同一个图表上绘制多条线。绘制完第一行后，使用lines()函数可以将一个额外的向量作为输入来绘制图表中的第二行。

#分组折线图
#创建数据/数据纯属虚构
v <- c(1,2,3,7,16,28,52,85)
t <- c(20,7,6,55,6,55,55,23)
#绘制第一条折线
plot(v,type = "o",
     col = "red", 
     xlab = "Month", 
     ylab = "降水量(mm)", 
     main = "盐池县月平均降水量")
#利用lines()函数绘制第二条折线
lines(t, type = "o", col = "black")

双Y轴折线图

#示例数据
v <- c(1,2,3,7,16,28,52,85)
t <- c(20,7,6,55,6,55,55,23)
#绘制双Y轴折线图
plot(v, type = 'o', ylab = "盐池县月均降水量(mm)")
par(new = TRUE)
plot(t, type = "o")#这里先不加t数据的标签
#上面y有两个标签， 不好看
par(mar = c(5, 5, 3, 5))
plot(v, type ="o", 
     ylab = "盐池县月均降水量(mm)",
     main = "降水量", 
     xlab = "Month",
     col = "blue")
#再次增加可覆盖的折线
par(new = TRUE)
#绘制第二条折线
plot(t, type = "o", xaxt = "n", yaxt = "n",
     ylab = "", xlab = "", col = "red", lty = 2)
#添加第二个Y轴的刻度
axis(side = 4) #side确定轴，1,2,3,4分别代表x, y, 上, 右轴
#添加第二个Y轴的信息
mtext("高沙窝月均降水量(mm)", side = 4, line = 3)
#设置标签
legend("topleft", c("盐池县", "高沙窝"),
       col = c("blue", "red"), 
       lty = c(1, 2))

参考文献

[1] https://www.w3cschool.cn/r/r_line_graphs.html
[2] https://thepracticalr.wordpress.com/2016/08/30/2-y-axis-plotting/