如何在 R 中使用循環來自動化工作？

Question

我有一個文件，其中包含有關向商店交付產品的數據。我需要計算商店中的產品總數。 我想用周期的知識來計算店里產品的總量，但是我的周期只統計最后一個產品的總量。 為什么？ 以下是發貨數據：

"Day" "Cott.cheese, pcs." "Kefir, pcs." "Sour cream, pcs."
1         104           117               119
2          94           114               114
3         105           107               117
4          99           112               120
5          86           104               111
6          88           110               126
7          95           106               129

我將此表放在in1變量中 這是代碼：

s<-0 
  for (p in (2:ncol(in1))){   
     s<-sum(in1[,p]) } 
s

Answer 1

不確定我是否正確理解您的問題，但如果您只想添加除第一列（Day）之外的 data.frame 的所有值，您只需執行以下操作：

sum(in1[,-1])

Answer 2

您每次迭代都在重寫 s 變量，這就是為什么它只顯示最后一列的結果。 嘗試

s<-c()
for (p in 2:ncol(in1)) {
  s<-c(s,sum(in1[,p]))
}

或者

colSums(in1[,-1])