adj位置调整
ask询问
bg背景
bty图形边框风格，o四边都有边框，l左边和下边，7右边和上边，c上边、左边和下边，
cex设置点和字符的大小，axis坐标轴上标签字的大小，lab坐标轴上命名的大小，main标题的大小，sub副标题的大小，col颜色。
family字体的风格，
fg前景颜色
font图片字体的风格，字体，粗体，斜体
las坐标轴的运行关系，坐标轴上的字和坐标轴的关系，字会转
lend线的两端的样式
lty线的形式,直线、虚线
lwd线的粗细
Mai、mar、mex画布的大小
Mfcol、mfrow是来切分画布的，放几个fig在画布中，两个功能一样
pch是用来定义点的形状的，有25个形状
srt用来定义图中的文字的角度
Txk坐标轴上的刻度的大小，刻度的字体大小
Xaxt/yaxt不想要坐标轴的标签
Xlog/ylog是x轴和y轴设置为log值
Xpd把绘图区设置为整个画布
Fig表示图形的四个角的位置
New是在图中生成图
#使用并列箱线图进行跨组比较，如图6-12#公式y~A*B则将为类别型变量A和B所有水平的两两组合生成数值型变量y的箱线图， 例子的mpg~cyl表示为四缸、六缸、八缸发动机对每加仑汽油行驶的英里数的影响。boxplot(mpg~cyl,data=mtcars,main="Car Mileage Data",xlab="Number of Cylinders",ylab="Miles Per Gallon")
#添加notch=TRUE，可以得到含凹槽的箱线图， 若两个箱的凹槽互不重叠， 则表明它们的中位数有显著差异； 而
varwidth=TRUE则使箱线图的宽度与它们各自的样本大小成正比。>boxplot(mpg~cyl,data=mtcars,notch=TRUE,varwidth=TRUE,col="red",main="Car Mileage Data",xlab="Number of Cylinders",ylab="Miles Per Gallon")
输出结果如下
#####以10个数据和30个数据为例说明。####my.qqplot <- function(y){
op <- par(mfrow = c(1, 1))
N <- length(y)
n <- seq(1, N)
xais <- qnorm((n - (.5*N) /N)/ N)
#####中间三句可选，只是为了输出计算过程######
mid <- cbind(sort(y), n, n/N, (n-(.5*N)/N)/N , xais)
colnames(mid) <- c("y", "rank", "cumpercent", "adj-cumper","xaix")
print(mid)
#####中间三句可选，只是为了输出计算过程######
par(mfrow = c(2,1))
qqnorm(y)
plot(sort(y) ~ xais, main = 'my qqplot')
par(op)
}
y <- rnorm(10, mean = 20, s = 50)
my.qqplot(y)
y rank cumpercentadj-cumper xaix
[1,] 2.877321 1 0.1 0.05 -1.6448536
[2,] 6.930063 2 0.2 0.15 -1.0364334
[3,] 16.461444 3 0.3 0.25 -0.6744898
[4,] 36.130825 4 0.4 0.35 -0.3853205
[5,] 40.477883 5 0.5 0.45 -0.1256613
[6,] 50.534636 6 0.6 0.55 0.1256613
[7,] 53.425025 7 0.7 0.65 0.3853205
[8,] 54.554269 8 0.8 0.75 0.6744898
[9,]120.496268 9 0.9 0.85 1.0364334
[10,] 125.290253 10 1.0 0.95 1.6448536
