前言：
    在前面介绍了R的基础入门语法之后，现也将最近整理好的一些R的基础绘图实例提供给需要的朋友参考。（温馨提示：代码慎用！按照本博文实例进行练习的话最好能做到举一反三。代码多敲方为上策，切不可隔岸观火！）

#基础R绘图

x <- :

y <-  + x*

windows(,);plot(y)   #默认情况绘制散点图type="p"

windows(,);plot(y,type="l")  #"l"即 line首字母

#正态分布随机数图

x2 <- rnorm(,,)

View(x2)

plot(x2)

#频数直方图

x3 <- rnorm(,,)

hist(x3)

#在直方图基础上绘制密度曲线

x4 <- rnorm(,,)

hist(x4,freq=F)

lines(density(x4),col="blue")

box()   #加方框

#茎叶图,条形图

x5 <- rnorm(,,)

stem(x5)

barplot(x5)

box()

x6 <- :;pie(x6,col=rainbow())

box()

#绘制箱线图

x7 <-rnorm(,,);boxplot(x7)

data(iris)

sunflowerplot(iris[,:])

#绘制矩阵或数据框的二元图

data(iris)

pairs(iris[:],main="--Anderson's Iris Data--",pch=,bg=c("red","green3","blue"))

#绘制QQ图

y1 <- rnorm(,,);qqnorm(x)

#曲线图

curve(sin,-*pi,*pi,xname="t");

#低水平绘图函数：在高水平绘图的基础上进行修饰和补充

x<-:

y<-rnorm(,,)

plot(x,y,type="n",xlab="索引坐标",ylab="随机散点",xlim=c(,),ylim=c(-,),main="实验图",sub="随机分布图")

points(x,y,col="blue")

lines(x,y,col="red")

text(,max(y),"最大随机散点")

mtext("横轴下方文本",side=)

mtext("横轴左方文本",side=)

mtext("横轴上方文本",side=)

mtext("横轴右方文本",side=)

segments(,,,-)  #根据起点，终点坐标绘制线段

arrows(,-,,,angle=,code=)  #绘制箭头

abline(-,)  #绘制“y=a*x+b”直线

abline(h=,col="red")  #绘制特殊直线，水平或垂直线

legend(,max(y),"随机点0连线")

legend(,max(y),"随机点3连线")

# 坐标定位模式获得鼠标点击位置的坐标

x <- :

y <- rnorm(,,)

plot(x,y,type="n",xlab="索引坐标",ylab="随机散点",xlim=c(,),ylim=c(-,),main="实验图")

print(locator(,type="p"))

#绘制矩形和多边形

rect(,,,)

polygon(c(,,,,),c(-,,,,-))

#savePlot()绘制图形保存方法一

windows()

plot(:)

rect(,,,,col="yellow")

savePlot("test01",type="jpg",device=dev.cur(),restoreConsole=T)

dir() #查看"test01.jpg" 

#图形绘制保存方法二

jpeg(file="myplot.jpeg")

plot(:)

rect(,,,,col="blue")

dev.off()

dir()   #查看"myplot.jpeg"

#end------------------