R语言学习总结.docx

The latest revision on November ,
R语言学习总结
R语言学习总结
经过接近一个学期的学习，从对R语言的完全陌生，到现在对其有了一些粗浅的认识，其中经历了遇到困难苦数变成一个新函数。
m*ply(a_matrix,FUN)的作用和a*ply(a_matrix，，splat(FUN))一样
例:
（）参数使用
>hp_per_cyl<-function(hp,cyl,...)hp/cyl
>splat(hp_per_cyl)(mtcars[,])
].
>splat(hp_per_cyl)(mtcars)
[].........
[].........
[].........
[].....
等价于：
>hp_per_cyl(mtcars$hp,mtcars$cyl)
splat函数的优点就是可以不用拆分字段，可以一起输入作为参数。
（）与plyr函数合用：
>f<-function(mpg,wt,...)(mw=mpg/wt)
>ddply(mtcars,.(cyl),splat(f))
each函数
作用：把多个函数汇聚成一个函数，当使用这个函数时，将分别作用多个函数。它的作用结果是把一个函数变成一个新函数。
不足：不能给作用的函数指定附加参数，只能使用默认参数。
例:
>fun<-function(x)c(min=min(x),max=max(x),mean=mean(x))
>fun(:)
等价于:
>f<-each(min,max,mean)
>f(:)
colwise函数
colwise(.fun,.cols,...)
说明：.fun：要转化的函数；.cols是测试数据框的列是否应包含的判别函数或者是·要包含的列的名称。
catcolwise(.fun,...)与colwise功能类似，只是对离散型变量有效
numcolwise(.fun,...)与colwise功能类似，只是对数值型变量有效
作用：把作用于数据框行向量的函数（如mean，median等）转化为作用于数据框列向量的函数。于plyr函数一起使用十分方便。作用结果生成一个新的函数。
例：
>nmissing<-function(x)sum((x))
>colwise(nmissing)(baseball)
>colwise(nmissing,.(sb,cs,so))(baseball)
>ddply(baseball,.(year),colwise(nmissing,.(sb,cs,so)))
>numcolwise(nmissing)(baseball)
等价于：colwise(nmissing,)(baseball)
>catcolwise(nmissing)(baseball)
等价于：colwise(nmissing,)(baseball)
failwith函数
failwith(default=NULL,f,quiet=FALSE)
作用：修正一个函数，使得当该函数出现错误时返回一个设定的默认值，默认为空。作用结果生成一个新的函数。
>f<-function(x)if(x==)stop("Error")else
>f()
Errorinf():Error
>safef<-failwith(,f)
>safef()
Errorinf(...):Error
NULL
>safef<-failwith(,f,quiet=TRUE)
>safef()
[]
summarise()函数
summarise(.data,...)
作用：对数据框做统计汇总，…为设定的统计方法或函数
例：
>summarise(baseball,duration=max(year)-min(year),nteams=length(unique(team)))
durationnteams