代码 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()函数:关闭当前设备,显示下一个打开的活跃设备的名字与编号。
-具体可以看这个链接: