打开你的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)
})
很明显，开始有一个数据框如下：
然后就不小心被lapply这个循环弄成了长短不一的list，这个时候需要把长短不一的list再次还原为数据框或者矩阵，大概如下：
之前那些因为小于0所以被过滤掉的这个时候还原到数据框里面，需要补为0即可。
如果你能独立完成这个题目，恭喜你，省了 3199 培训费，可以直接参加我们的单细胞线下培训啦。
https://mp.weixin.qq.com/s/ePD7XyvDeYdKkuSMI65cbg