R语言画图的一些辅助操作

~~~添加图例

legend("topright", legend=c("a","b","c"), col=c(2,3,5), lty=1,lwd=2)      

#topright表示图例位置为右上角，topleft表示左上角

#Ity=1表示直线

~~~如何图上加图

方法一：ggplot2

例如，在箱线图上加散点，散点散落排列

          library(ggplot2)
          ggplot(data=iris, aes(x=Species, y=Sepal.Length)) +              geom_boxplot(fill="blue",color="black")+geom_point(position="jitter", color="red", alpha=.5)

方法二：使用par( )或layout( )可以容易地组合多幅图形为一幅总括图形，

               par(new=T)

方法三：lines()和points()可以直接加

              例如：lines(density(mydata$A),lwd = 2,col = "red")

                         points(mydata$A~mydata$B) #散点竖向排列

~~~图形布局

例子：（来自《R语言实战》）

opar <- par(no.readonly=TRUE)

par(fig=c(0,0.8,0,0.8))

plot(mtcars$wt,mtcars$mpg,xlab="Miles Per Gallon",ylab="Car Weight")

#设置散点图

par(fig=c(0,0.8,0.55,1),new=TRUE)

boxplot(mtcars$wt,horizontal=TRUE,axes=FALSE)

#在上方添加箱线图

par(fig=c(0.65，1，0，0.8),new=TRUE)

boxplot(mtcars$mpg,axes=FALSE)

#在右侧添加箱线图