如何在 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])