R语言获取四分位分组\高低表达分组

如题

data<-read.csv()#读入矩阵表达数据，row为gene names ，col为表达值
Quantile<-function(x){
  ifelse(x>quantile(x,.75),"Q1",ifelse(x>quantile(x,.5),"Q2",ifelse(x>quantile(x,.25),"Q3","Q4")))
}#设置函数，四分位分组
Median<-function(x){
  ifelse(x>median(x),"High","Low")
}#设置函数，中位数分组
new_quantile<-apply(data, 2, Quantile)
new_median<-apply(data, 2, Median)

自由发挥自由扩散

©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容