想做单细胞数据分析,完成一个R考核题

打开你的Rstudio,运行下面的代码:

set.seed(0.12345)
n=26
df=data.frame(LETTERS,rnorm(n),rnorm(n),
 rnorm(n),rnorm(n),rnorm(n))
a=lapply(2:ncol(df), function(i){
 x=df[,c(1,i)]
 x=x[x[,2]>0,]
 return(x)
})

很明显,开始有一个数据框如下:

11431560561839_-pic_hd

然后就不小心被lapply这个循环弄成了长短不一的list,这个时候需要把长短不一的list再次还原为数据框或者矩阵,大概如下:

11441560561942_-pic_hd

之前那些因为小于0所以被过滤掉的这个时候还原到数据框里面,需要补为0即可。

如果你能独立完成这个题目,恭喜你,省了 3199 培训费,可以直接参加我们的单细胞线下培训啦。

https://mp.weixin.qq.com/s/ePD7XyvDeYdKkuSMI65cbg 

一年一度的生信技能树单细胞线下培训班火热招生 

Comments are closed.