subset(),airquality[airquality$Temp>80,]

 subset(airquality,Temp>80,select = c(Ozone,Temp)),all,any,with()

sumarry().str()

函数merge()

数据粘贴函数：paste(),paste0()

高级函数：round（）取整，rnorm(),ceiling(),floor()

sample()随机抽样函数，sort(),order(),scale(),table()

基本函数：head(),tail(),前后6个数据显示

sum(),max(),min(),whic.max(),range(),length(),mean(),median(),quantile()

is.na,complete.cases()

创建新属性：within(x,{    })

rm(list=ls())

加载函数：attach;detach，去载：detach()

iris
mydata<-iris[,1:2]
attach(mydata)
(mydata$square<- Sepal.Length*Sepal.Width)

mydata1<- transform(mydata,square=Sepal.Length*Sepal.Width)

安装数据包：learningr

deer_file<-system.file("extdatd")

getwd()
setwd("C:/Users/git/Documents/R/win-library/3.4/learningr")
deer_data<-read.table('./extdata/RedDeerEndocranialVolume.dlm',header=TRUE,fill=TRUE)

Theme<-system.file("extdata",
                       "Shakespeare.s.The.Tempest..from.Project.Gutenberg.pg2235.txt",
                       package = "learningr"
)
Themeread<-readLines(Theme)

自定义函数：Calc<-function(x,y,z){z=x*x+y/2+z*z*z

return(z)};a<-"www.tipdm.com.html"
pa<-function(x,y){
  b<-strsplit(x,'\\.')
  n<-length(b[[1]])-1
  return(b[[1]][n]==y)

paste(x1,x2,sep='');paste0(x1,x2),strsplit(x,""),substr(0,chartr(),gsub()

iris[101:150,],iris[iris$Species=="virginica",];iris[iris$Species=="versicolor",c(1,2,3,4)];iris[iris$Sepal.Width>4,c(1,2,3,4)]

iris[iris$Sepal.Width>=4&iris$Sepal.Width<4.5,],attach(x),detach(x);iris[Sepal.Width>=4&Sepal.Width<4.5,];Tab<-data.frame(姓名=c('李伟','李佳玉','郑重'),成绩=c("60",'80','70'),性别=c('男','男','女'));b<-as.matrix(Tab); (as.data.frame(b))

paste(x1,x2,sep=‘，’)，strsplit(x,‘年’)，list

my.list[[3]][3],my.list$id

因子型数据：factor(x),iris,鸢尾花，iris[,5],class(iris[,5]),chr<-c("R","Python","R","Rudy","Lisp"),‘R’),class(chr),（f<-factor(chr)）,class(f),storage.mode(f),as.numeric(f),levels(f)

求和sum(y*2*pi/n)

数组：array(x，dim=c(2,5,3)),dim(x),colsums

矩阵：a<-matrix(w,nrow,ncol),as.vector(x)

索引：提取数据，x[c(1,3,4,5)];删除数据[-2,-5,-7],names(x)<-c(‘one’,‘two’)

（1）函数：example,c,cbind,seq,rep,