# 建一个数据框
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 # 填充颜色和边框颜色
)
