#1000个数据对的高密度普通散点图和由smoothScatter函数绘制的平滑散点图
(利用graphis包中的smoothScatter函数绘制)
library(graphics)
par(mfrow=c(1,2),mai=c(0.8,0.6,0.2,0.2),cex=0.7) ----mfrow(1,2)一页多图--一行两列
set.seed(1234) ----用于设定随机数种子
n=10000;x<-rnorm(n);y<-1+2*x+3*rnorm(n);d<-data.frame(x,y)
plot(d,main="(a) 1000个数据对的散点图")
abline(v=mean(x),h=mean(y),lty=2,col="gray30")
smoothScatter(d,main="(b) 平滑后的散点图")
abline(v=mean(x),h=mean(y),lty=2,col="gray30")
#六边形封箱散点图和二维核密度估计散点图
（利用openair包中的scatterPlot函数）
set.seed(1234)
n=10000;x<-rnorm(n);y<-1+2*x+3*rnorm(n);df<-data.frame(x,y)
library(openair)
scatterPlot(df,x="x",y="y",method="hexbin")
scatterPlot(df,x="x",y="y",method="density",cols="jet")
*右侧六边形后的数字表示该颜色六边形包含的点数
#散点图矩阵
（利用IDPmisc包中的ipairs函数）
setwd("E:\\main class")
load("数据可视化--R语言/data/data5_1.rdata")
library(IDPmisc)
ipairs(data5_1[3:8],pixs = 1.2,cex=0.8) ---- pixs打印设备上的像素大小
