在 R 中有效的 data.table 中更新一列两次

Question

我有一个如下所示的数据表：

DT <- data.table(Zeit = c(0.024, 0.4, 0.05),
                 Gier = c(1, 2, 3),
                 GierVZ = c(1, 0, 1),
                 Quer = c(2, 4, 6))

现在我想更新并添加一些列到这个数据表中。但我无法更新Gier 两次，因为它会创建重复并出现错误。

DT[, ':='(Zeit   = round(Zeit, digits = 2),
          Gier   = replace(Gier, Gier == 163.83, NA),
          GierVZ = factor(GierVZ, levels = c(0, 1), labels = c("positiv", "negativ")),
          Quer   = Quer * 9.81,
          Gier   = ifelse(GierVZ == "negativ", Gier * -1, Gier))]

一般而言，我怎样才能避免这种情况并仍然创建一些可读的快速代码？ 我确信有一个简单的答案。但我是数据表的新手，我认为（至少目前）它不像 dplyr 那样直观，但它对我的大数据来说要快得多。

Answer 1

你可以用花括号计算Gier：

DT[, ':='(Zeit   = round(Zeit, digits = 2),
          Gier   = {Gier[Gier == 163.83] <- NA; ifelse(GierVZ, -Gier, Gier)},
          GierVZ = factor(GierVZ, levels = c(0, 1), labels = c("positiv", "negativ")),
          Quer   = Quer * 9.81)]

Answer 2

这种方法对我来说具有大致相同的可读性并实现了您的目标：

DT[ , `:=`(
  Zeit = round(Zeit, digits=2L),
  GierVZ = factor(GierVZ, levels = c(0, 1), labels = c("positiv", "negativ")),
  Quer   = Quer * 9.81
)]
DT[Gier == 163.83, Gier := NA]
DT[ , Gier := fifelse(GierVZ == "negativ", Gier * -1, Gier))]

或者，在data.table (Installation instructions) 的开发版本中，您可以从fcase 中受益：

DT[ , `:=`(
  Zeit   = round(Zeit, digits=2L),
  GierVZ = factor(GierVZ, levels = c(0, 1), labels = c("positiv", "negativ")),
  Quer   = Quer * 9.81
  Gier   = fcase(
      Gier == 163.83    , NA_real_, 
    GierVZ == 'negative',    -Gier, 
    GierVZ == 'positiv' ,     Gier
  )
)]

如果您可以跳过写出最后一个GierVZ=='positiv' 条件会更容易；这是一个正在进行的功能请求。