1

你能帮我弄清楚为什么以下不起作用吗？我有一个 2528x3 矩阵 uniqueitems，如下所示：

Number        Created               Customer
===========   ===================   ============
31464686486   2013-10-25 10:00:00   john@john.de
...

我想做的事情：遍历每一行，检查 Created 是否比给定时间更新，如果是，则将该行写入新表 newerthantable。这是我的代码：

library(lubridate);
newerthan <- function(x) {
  times <- ymd_hms(uniqueitems[,2])
  newerthantable <- matrix(data=NA,ncol=3,nrow=1)
  i <- 1;
  while (i <= nrow(uniqueitems)) {
    if (x < times[i]) {
      newerthantable <- rbind(newerthantable,uniqueitems[i,])
    }
    i <- i + 1;
  }
}

但是 newerthan("2013-10-24 14:00:00") 没有达到预期的效果:(，没有任何东西写在 newerthantable 中。为什么？

4

1 回答 1

0

在 R 中，很少需要循环。在这种情况下，您可以使用矢量化操作或子集来获得相同的结果。

设置示例数据框：

number <- c(1:10)
created <- seq(as.POSIXct("2013-01-01 10:01"), length.out=10, by="26 hours")
customer <- letters[c(1:10)]
df <- data.frame(number, created, customer)

head(df, 10)

   number             created customer
1       1 2013-01-01 10:01:00        a
2       2 2013-01-02 12:01:00        b
3       3 2013-01-03 14:01:00        c
4       4 2013-01-04 16:01:00        d
5       5 2013-01-05 18:01:00        e
6       6 2013-01-06 20:01:00        f
7       7 2013-01-07 22:01:00        g
8       8 2013-01-09 00:01:00        h
9       9 2013-01-10 02:01:00        i
10     10 2013-01-11 04:01:00        j

选择比给定日期新的行：

newerthantable <- df[df$created > as.POSIXct("2013-01-05 18:01:00"), ]

head(newerthantable,10)

   number             created customer
6       6 2013-01-06 20:01:00        f
7       7 2013-01-07 22:01:00        g
8       8 2013-01-09 00:01:00        h
9       9 2013-01-10 02:01:00        i
10     10 2013-01-11 04:01:00        j

方括号选择符合我们标准的行（created列大于给定日期）和所有列（逗号后没有列说明）。在此处阅读有关子集操作的更多信息：http: //www.ats.ucla.edu/stat/r/modules/subsetting.htm

如果你想把它包装成一个函数，它看起来像这样：

new_entries <- function(data, rows_since){

  data[data$created > as.POSIXct(rows_since), ]

}

new_entries(df, "2013-01-05 18:01:00")
于 2013-12-04T10:51:49.633 回答