R语言入门之折线图

#在R中分号(;)可以将两个命令连接成一行，如下所示
x <- c(1:5); y <- x # 产生相关数据用于绘图，类似于分别执行x <- c(1:5)和y <- x
par(pch=22, col="red") # 设置绘图符号和颜色，下图表示的就是绘图符号 
par(mfrow=c(2,4)) # 设置绘图版面，将画布设置成2行4列的格式，共8个绘图区域
opts = c("p","l","o","b","c","s","S","h") #构建type=类型
for(i in 1:length(opts)){ 
  heading = paste("type=",opts[i]) 
  plot(x, y, type="n", main=heading) 
  lines(x, y, type=opts[i]) 
}

# 接下来我们将展示在plot()函数中去除type=这个参数之后的效果
x <- c(1:5); y <- x # create some data
par(pch=22, col="blue") # plotting symbol and color
par(mfrow=c(2,4)) # all plots on one page 
opts = c("p","l","o","b","c","s","S","h") 
for(i in 1:length(opts)) {
  heading = paste("type=",opts[i]) 
  plot(x, y, main=heading) 
  lines(x, y, type=opts[i]) 
}
# 这里利用for循环来绘制不同区域的图形

#首先我们先了解一下Orange（O要大写）数据的基本信息
?Orange

# 将因子型数据转换成数值型，方便接下来的处理
#推荐读取数据时先设置options(stringsAsFactors=F)
Orange$Tree <- as.numeric(Orange$Tree) 
ntrees <- max(Orange$Tree) #获取树的数目

# 获取x轴和y轴的范围
xrange <- range(Orange$age) 
yrange <- range(Orange$circumference)

# 绘制图形
plot(xrange, yrange, type="n", xlab="Age (days)",
   ylab="Circumference (mm)" ) 
colors <- rainbow(ntrees) #rainbow()函数是用来获取颜色参数的
linetype <- c(1:ntrees) # 获取线条形状
plotchar <- seq(18,18+ntrees,1) # 获取绘图符号（pch）

# 添加折线
#lwd表示的是线宽，lty表示线的类型，col表示颜色
for (i in 1:ntrees) { 
  tree <- subset(Orange, Tree==i) 
  lines(tree$age, tree$circumference, type="b", lwd=1.5,
    lty=linetype[i], col=colors[i], pch=plotchar[i]) 
}

# 添加标题和副标题
title("Tree Growth", "example of line plot") #第一个参数是主标题，第二个则是副标题

# 添加图例
legend(xrange[1], yrange[2], 1:ntrees, cex=0.8, col=colors,
   pch=plotchar, lty=linetype, title="Tree")
#添加水平线和垂线
lines(x=c(500,500), y=c(0,500)) #添加垂线
lines(x=c(0,2000), y=c(120,120)) #添加水平线