最近我们生信技能树发布了一年一度的单细胞线下5天学习班 一年一度的生信技能树单细胞线下培训班火热招生
报名者众多，有趣的是大部分人对前面的3天生物信息学基础知识课不感兴趣，想直接报名2天的单细胞学习班，也并不是不可以，但万丈高楼平地起，如果确实没有任何基础，我不建议跳过基础课直接上手单细胞数据分析，所以，想报名，需要完成下面的一个简单的R练习题。
打开你的Rstudio，运行下面的代码： set.seed(0.12345)
n=26
df=data.frame(LETTERS[1:n],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)
})
很明显，开始有一个数据框如下： 
然后就不小心被lapply这个循环弄成了长短不一的list，这个时候需要把长短不一的list再次还原为数据框或者矩阵，大概如下： 
之前那些因为小于0所以被过滤掉的这个时候还原到数据框里面，需要补为0即可。 如果你能独立完成这个题目，恭喜你，省了 3199 基础班学习费，答案代码及注释发给小助手，就可以直接参加我们的单细胞线下培训啦，主要是重复3篇已经发表的文章的部分图表，文章如下： 我们在单细胞天地完全复现这个流程，部分教程如下： 还等什么呢，感兴趣就赶快报名吧： 一年一度的生信技能树单细胞线下培训班火热招生
|
