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是在图中生成图
一行一行来。basic.stats <- function(x,more=F) { # 建立名叫basic.stats的函数，参数为x和more，more默认是F就是不用输入，但你也可以输入，有额外效果。
stats <- list() #建立名叫stats的列表类型变量
clean.x <- x[!is.na(x)] #把x中的NA全部踢掉，留下有用的数据记为clean.x
stats$mean <- mean(clean.x)# 计算clean.x的均值 赋给列表中的mean单元
stats$std <- sd(clean.x)# 计算clean.x的标准差 赋给列表中的std单元
stats$med <- median(clean.x) # 计算clean.x的中位数 赋给列表中的med单元
if(more) { #如果你在函数中输入2个变量，默认是basic.stats(x)，你可以输入basic.stats(x, y) 有额外效果
stats$skew <- sum(((clean.x-stats$mean)/stats$std)^3)/length(clean.x) #计算偏度 赋给列表中的skew单元
stats$kurt <- sum(((clean.x-stats$mean)/stats$std)^4)/length(clean.x) - 3 #计算峰度 赋给列表中的kurt单元
unlist(stats) #最后拆解列表变量stats 使其变为简单的向量数值变量
