Data<-read.table(‘文件名’,header=TRUE,sep=’\t’),header第一行是否用做列名称,sep指定字符的分隔符号
x1<-subset(Data,Class.ID=="1"),找出Data中列标题Class.ID值为1的所有项
uniqv <- unique(v)
uniqv[which.max(tabulate(match(v, uniqv)))]
x1<-subset(Data,Class.ID=="1"),找出Data中列标题Class.ID值为1的所有项
x<-seq(-9,9,length.out=20),从-9到9之间岁随机取20个数
mean()求均值 sd()求标准差 order()排序 union(x,y)并集运算 intersect(x,y)交集运算 min()最小值 max()最大值 median()中位数 cut(a[,1],10)将a中第一列数均分成10份,并统计每份个数 quantile(a,na.rm=TRUE)计算a的四分位数
getmode <- function(v) {uniqv <- unique(v)
uniqv[which.max(tabulate(match(v, uniqv)))]
}求众数
library(futile.logger) 绘制维恩图
lenA<-length(female_set)
lenB<-length(male_set)
lenAB<-length(intersect(female_set,male_set))
draw.pairwise.venn(area1=lenA,area2=lenB,cross.area=lenAB,category=c('A','B'),lwd=rep(1,1),lty=rep(2,2),col=c('red','green'),fill=c('red','green'),cat.col=c('red','green'))