想仅报名单细胞数据分析学习班，请先独立完成一个R考核题

最近我们生信技能树发布了一年一度的单细胞线下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篇已经发表的文章的部分图表，文章如下：

我们在单细胞天地完全复现这个流程，部分教程如下：

还等什么呢，感兴趣就赶快报名吧：