代码 2-2 定制作图

 1 # 数据划分
 2 # 设置工作空间
 3 # 把“数据及程序”文件夹拷贝到D盘下，再用setwd设置工作空间
 4 setwd("D:/R_Project/book1_R/chapter2/示例程序")
 5 # 读入数据
 6 data <- read.csv("./data/time_series.csv", header = TRUE)
 7 
 8 # 定制作图
 9 png(file = "./tmp/myplot.png") # 图片输出为PNG文件
10 plot(data[, 1], data[, 2], type = "b", col = "red",xlab = "time", ylab = "Response",main = "时间序列图") # 使用-o连接，颜色为红色
11 dev.off()

 

Notes : 

　　-dev.off()函数：关闭当前设备，显示下一个打开的活跃设备的名字与编号。

　　　　-具体可以看这个链接：