感觉使用编程语言一定要理解它的步骤含义，不然就算会使用它进行数据的处理，也很容易就会忘记，下一次还是会琢磨不透。
有一个星期多没有写代码处理数据了，昨天突然不会使用apply+function进行逐行逐列的处理数据，温习一下。
解决问题：
对数据框中每行数据中出现的数字1进行计数length()并生成新的数据框transmute()。
-
我的数据处理
数据结构 - 理解
在apply函数中，按照row处理需要把第2个参数设为1，function(x)中的x则代表了这个数据框中的每行内容。
ORR_sig_x1 <- transmute(ORR_sig_1, num1 = apply(ORR_sig_1, 1, function(x){
length(which(x == 1))
}))
