# 数据划分
# 设置工作空间
# 把“数据及程序”文件夹拷贝到F盘下，再用setwd设置工作空间
#E:\数学建模大赛\数学建模培训1（8.14）\chapter2\示例程序
#E:/R语言数据分析与挖掘实战/chapter2/示例程序
setwd("E:/数学建模大赛/数学建模培训1（8.14）/chapter2/示例程序")
# 读入数据
data <- read.csv("./data/time_series.csv", header = TRUE)# 定制作图
png(file = "./tmp/myplot.png") # 图片输出为PNG文件
plot(data[, 1], data[, 2], type = "b", col = "red",xlab = "time", ylab = "Response") # 使用-o连接，颜色为红色
title(main = "时间序列图")
dev.off()