R常用函数整理

Rëëëkkk¡¡¡byTomShort,EPRIPEAC,[e-mail]2004-10-21translatedbySZLiu,[e-mail](withpermission).version1.02006-09-22¼¼¼ÏÏόܩR¼êÑk3‚©help(topic)'utopic©.?topicÓþhelp.search(topic)|¢ÏXÚapropos(topic)ˆ£¤k3|¢´»e÷vKLˆª”topic”¤k閶¡help.start()HTML/ªÏstr(a)w«Ré–S3á5(*str*ucture)½{‡`²é–summary(a)‰ÑaV‡,Ï~´˜‡˜„5ÚOV‡;…§kØÓÅnÚaá5ls()w«|¢´»eé–;½pat=patž,Uª^‡|¢ls.str()str()|¢´»ez‡Cþdir()3c8¹ew«©‡methods(a)w«a“S3methods”methods(class=class(a))L¤kŒ±)ûáué–a{ÑÑÑ\\\†††ÑÑÑÑÑÑload()\1dsave·-ê|data(x)\1½ê|library(x)\1 ÷read.table(file)ÖL‚ª©‡¿òÙMï¤êâµ;%@©Îsep=?¿whitespace;¦^header=TRUEÖ1˜1ŠIK;¦^as.is=TRUE“ŽiΕþCfactors;¦^comment.char=“Ž#)º5º;¦^skip=n3ÖêâcaLn1;[„Ï'u1·¶,NA?n,ÚÙ¦read.csv(filename,header=TRUE)Óþ,%@˜ÖÏ:©©‡read.delim(filename,header=TRUE)Óþ,%@˜Ötab©©‡read.fwf(file,widths,header=FALSE,sep=,as.is=FALSE)±fixedwidthformatted/ªÖêâ–êâµ;widths´ê•þ,^u˜N°Ýiãsave(file,...)±Ø©²?›½é–save.image(file)¤ké–cat(...,file=,sep=)r›=zi΋arguments;separgumentsm©iÎprint(a,...)w«arguments;˜„5,…§kØÓÅnÚaá5format(x,...)‚ªz,Ðw«Ré–write.table(x,file=,row.names=TRUE,col.names=TRUE,sep=)3rx=zêâµ,©‡;XJquoteTRUE,iÎÚÏfÒ¬()¤Œ;sep´i㩅Î;eol—1©Î;na”ŠiÎG;¦^col.names=NAO\IK±BuÚL‚Ñ\˜—sink(file)ÑÑ©‡file,†Ñ\·-sink()ŒÜ©I/O¼êÑkfileëê.§Œ±´½¶¡½ëiÎG.file=¿›XIOÑ\½ÑÑ.ë(Connections)Œ±º©‡(file),+(pipes),Ø ©‡(zippedfiles)½RCþ.3windowsöŠ‚¸e.©‡
¦^Œ±ÏLi†(clipboard)ª.ÖExcelL,Œ±òExcel¥ê‖i†,¦^x-read.delim(clipboard)ªÖêâ.XJ‡òêâ\i†øExcel¦^,Œ±¦^write.table(x,clipboard,sep=\t,col.names=NA)ê⥐¡pA^,ž„RODBC,DBI,RMySQL,RPgSQL,andROracle÷.ÖÙ¦©‡‚ªëXML,hdf5,netCDF÷.êêêâââMMMïïïc(...)~„ò˜Xëê=z•þ¼ê;ÏLrecursive=TRUEüSüL¿|ܤkƒ•þ.from:to)˜‡S;“:”kp?O`k?;1:4+1“2,3,4,5”seq(from,to))˜‡Sby=½OÌ;length=½‡¦Ýseq(along=x)generates1,2,...,length(along);usefulforforloopsrep(x,times)­Extimesg;¦^each=5­Exƒeachg;rep(c(1,2,3),2)123123;rep(c(1,2,3),each=2)112233data.frame(...)Mïêâµ,CþŒU·¶½™·¶;data.frame(v=1:4,ch=c(a,B,c,d),n=10);ƒéá•þ¬W¿•þÝlist(...)MdCþ|¤L,CþŒU·¶½™·¶;list(a=c(1,2),b=hi,c=3i);array(x,dim=))dx|¤ê|;¦^aqdim=c(3,4,2)½‘ê;XJxØÝ,KxgÄ̂matrix(x,nrow=,ncol=)Ý;Óþfactor(x,levels=)r•þx?褏Ïf.gl(n,k,length=n*k,labels=1:n)ÏL½Y²ª)Y²(Ïf);kY²‡ê;n­Egêexpand.grid()•þÚÏf|ܤêâµrbind(...)r±1/ª|ÜÝ,êâµ,½Ù¦cbind(...)Óþ.±/ªêêêââ⃃ƒÚÚÚ©©©lll•þIx[n]1n‡ƒx[-n]Ø1n‡ƒxx[1:n]cn‡ƒx[-(1:n)]1n+1–ƒx[c(1,4,2)]½ƒx[name]¶nameƒx[x3]¤kŒu3ƒx[x3&x5]«m(3,5)ƒx[x%in%c(a,and,the)]‰½|¥ƒLIx[n]Lw«ƒnx[[n]]L1n‡ƒx[[name]]¶nameƒx$nameÓþ.ݍIx[i,j]eI(i,j)ƒx[i,]1i1x[,j]1jx[,c(1,3)]11Ú3x[name,]¶name1êⵍI(ݍI\eã)x[[name]]¶namex$nameÓþ.CCCþþþCCC†††as.array(x),as.data.frame(x),as.numeric(x),as.logical(x),as.complex(x),as.character(x),...=†Cþa.;¦^Xe·-ÜL,methods(as)CCCþþþ&&&EEEis.na(x),is.null(x),is.array(x),is.data.frame(x),is.numeric(x),is.complex(x),is.character(x),...uCþa.;¦^Xe·-ÜL,methods(is)length(x)x¥ƒ‡êdim(x)­#˜½˜é–‘ê;dim(x)-c(3,2)dimnames(x)­#˜½˜é–¶¡nrow(x)1‡ê;NROW(x)Š^ƒÓ,´§r•þw‰˜‡ü1Ýncol(x)ÚNCOL(x)Óþ.class(x)½˜xa;class(x)-myclassunclass(x)íØxaattr(x,which)½˜xá5a.whichattributes(obj)½˜objá5LêêêâââÀÀÀÚÚÚöööŠŠŠwhich.max(x)ˆ£x¥ŒƒIwhich.min(x)ˆ£x¥ƒIrev(x)€=x¥¤kƒsort(x),Süx¥ƒ;üSü¦^:rev(sort(x))cut(x,breaks)òx©¤Aã(½Ïf);breaksã꽩:•þ.match(x,y)ˆ£˜‡ÚxƒÓ݅Úy¥ƒƒ•þØKˆ£NAwhich(x==a)XJ'öŠý(TRUE),ˆ£•þx.choose(n,k)|ÜêOŽna.omit(x)ؔŠ(NA)(؃'1XJxÝ½êâµ)na.fail(x)ˆ£†Ø&EXJx¹–˜‡NAunique(x)XJx•þ½êâµ,ˆ£Ž˜Štable(x)ˆ£˜‡dxØӊ‡ê|¤L‚(~^uê½Ïf),=ªêLsubset(x,...)Šâ^‡(...Àx¥ƒ,X:x$V110);XJxêâµ,À‘select¦^K҉Ñ3½ØCþsample(x,size)ؘ£‘Å3•þx¥Äsize‡ƒ,À‘replace=TRUE#N˜£Äprop.table(x,margin=)Šâmargin¦^©êL«L‚,Ãmarginž,¤kƒÚ1êêêÆÆÆ+,-,×,÷,ˆsin,cos,tan,asin,acos,atan,atan2,log,log10,expmax(x)ˆ£xŒƒmin(x)Óþ.range(x)ˆ£c(min(x),max(x))sum(x)x¥ˆƒ\Údiff(x)•þx©prod(x)x¥ƒë¦mean(x)xþŠmedian(x)x¥ êquantile(x,probs=)÷v‰½VÇ© ê(%@0,.25,.75,1)weighted.mean(x,w)\²þrank(x)x¥ƒvar(x)orcov(x)•þx;XJx´Ý½êâµ,ÝòOŽsd(x)xIO;sd(x)=sqrt(var(x))cor(x)XJx´Ý½êâµ,ˆ£ƒ'(1XJx•þ)var(x,y)orcov(x,y)xÚym;XJx,yÝ½êâµ,ˆ£xÚyˆcor(x,y)xÚy‚5ƒ'Xê;½öƒ',XJxÚyÝ½êâµround(x,n)xê,°(n log(x,base)OŽx±baseÄéê,%@ďexp(1)scale(x)XJx´˜‡Ý,K¥%zÚIOzêâ;eIOzK¦^À‘center=FALSE,e¥%z¦^scale=FALSE(%@center=TRUE,scale=TRUE)pmin(x,y,...)x[i],y[i]ƒ'ö,|¤#•þpmax(x,y,...)Óþ.Œöcumsum(x)dx|¤•þ,x[i]=sum{x[1]:x[i]}cumprod(x)Óþ.ë¦cummin(x)Óþ.cummax(x)Óþ.Œunion(x,y),intersect(x,y),setdiff(x,y),setequal(x,y),is.element(el,set)“set”¼êRe(x)Eê¢ÜIm(x)JÜbcodeMod(x)ýéŠ;Óabs(x)Arg(x)EêÝ(inradians)Conj(x)complexconjugateconvolve(x,y)computetheseveralkindsofconvolutionsoftwose-quencesfft(x)FastFourierTransformofanarraymvfft(x)FFTofeachcolumnofamatrixfilter(x,filter)applieslinearfilteringtoaunivariatetimeseriesortoeachseriesseparatelyofamultivariatetimeseriesŒõê