if循环中的ifelse不会产生所需的输出

Question

我有一个包含2列的数据集，即＆＃34; time（Ti）＆＃34;和＆＃34;计数器（Co）＆＃34;。每当计数器为1时，我应该计算那个＆＃34;行时间＆＃34;之间的时间差。以及＆＃34;行时间＆＃34;

为达到上述要求，我使用以下逻辑

for (i in 1:length(file1$counter))
{  
  n1 <-  ifelse(file1$counter==1,(file1$TIME[(i)] - file1$TIME[(i-1)]),0)
}

但我得到的标准输出为0 0 2 2 2 2 2 0 0 0 0 0 0 2 2 2 2 2 0 0而不是0 0 2 1 4 1 4 0 0 0 0 0 0 2 2 2 2 2 0 0 此外，n1默认显示为时间序列，其中Start = 1，End = 20和 频率= 1。

Answer 1

正如docendo discimus所指出的那样，ifelse是R中的向量化操作。您可以省略for循环以获得所需的结果。这是一个例子：

filename   = c("aa", "bb", "cc") 
counter    = c(1, 2, 3) 
df = data.frame(filename, counter) 
df$n1 <- ifelse(df$counter == 1, "one", "other")

这为我们提供了更新的df：

  filename counter    n1
1       aa       1   one
2       bb       2 other
3       cc       3 other