感覺使用編程語言一定要理解它的步驟含義，不然就算會使用它進行數(shù)據(jù)的處理，也很容易就會忘記，下一次還是會琢磨不透。

有一個星期多沒有寫代碼處理數(shù)據(jù)了，昨天突然不會使用apply+function進行逐行逐列的處理數(shù)據(jù)，溫習(xí)一下。

解決問題：
對數(shù)據(jù)框中每行數(shù)據(jù)中出現(xiàn)的數(shù)字1進行計數(shù)length()并生成新的數(shù)據(jù)框transmute()。

• 我的數(shù)據(jù)處理

  
  
  數(shù)據(jù)結(jié)構(gòu)
• 理解
  在apply函數(shù)中，按照row處理需要把第2個參數(shù)設(shè)為1，function(x)中的x則代表了這個數(shù)據(jù)框中的每行內(nèi)容。

ORR_sig_x1 <- transmute(ORR_sig_1, num1 = apply(ORR_sig_1, 1, function(x){
  length(which(x == 1))
}))