m0_46180158的博客

for：for(i in 1:10) print('hello')i<-10while (i>0) {print('hello');i<-i-1} ifelse (score>0.5,print('passed'),print('Failed)options(digits=3)attach(mtcars)aggdata<-aggregate(mtcars,by=list(cyl,gear),Fun=mean,na.rm=TRUE) #基本条形图

NA值转换data$age[data$age==99]<-NAfix(data)is.na(data)x<-c(1,2,NA,3)y<-sum(x)#y等于NA，因为X中包括NA值y<-sum(x,na.rm=TRUE)na.omit() #删除不完整的行Sys.Date() #查看系统时间月日a<-(1,2,3)is.number(a)a<-as.character(a)#数据排序newdata<-dat

D<-aggregate(.~K,data=data1,mean) #求数据集data1按照K分类后所有列的均值rm(list=ls()) #删除所有对象attach() #锁定某个对象with(mtcars,{print(summary(mpg)),plot(mpg,disp)} #with作用等同attachgrades<-read.table('student.csv',header=TRUE,row.namens='studentid',sep=',')#读表.