# 建一个数据框

data <- data.frame(

  x=seq(1,10), # 创建一个从1到10的序列，作为x轴的数据

  y=sample(seq(1,15),10) # 从1到15的序列中随机抽取10个数，作为y轴的数据

)

#查看数据框

head(data) # 查看数据框的前6行数据

#画折线图

plot( data$x , # x轴数据

      data$y , # y轴数据

      col=rgb(0.2,0.1,0.5,0.9) , # 折线颜色

      type="o" , # 折线类型，o表示带点的折线

      lwd=3 , # 折线宽度

      xlab="" , ylab="size" , # x轴和y轴标签

      pch=20) # 点的形状，20表示实心圆点

#折线下面积填充

polygon(

  c(min(data$x), data$x , max(data$x)) , # x轴坐标，包括最小值、数据、最大值

  c( min(data$y) , data$y , min(data$y)) , # y轴坐标，包括最小值、数据、最小值

  col=rgb(0.2,0.1,0.5,0.2) , border=F # 填充颜色和边框颜色

)

#画折线图

plot( data$x , # x轴数据

      data$y , # y轴数据

      col=rgb(0.2,0.1,0.5,0.9) , # 折线颜色

      type="o" , # 折线类型，o表示带点的折线

      lwd=3 , # 折线宽度

      xlab="" , ylab="size" , # x轴和y轴标签

      pch=20) # 点的形状，20表示实心圆点

#折线下面积填充

polygon(

  c(min(data$x), data$x , max(data$x)) , # x轴坐标，包括最小值、数据、最大值

  c( min(data$y) , data$y , min(data$y)) , # y轴坐标，包括最小值、数据、最小值

  col=rgb(0.2,0.1,0.5,0.2) , border=T # 填充颜色和边框颜色

)