dplyr：if_else很贪心

Question

我试图使用if_else在另一个变量的值上有条件地mutate一个新变量，但if_else坚持计算所有值，然后有条件地替换最终向量中的值。

当导致某些情况的最终值的函数无法针对其他情况计算时，此行为是有问题的：

df_foo = data_frame(
  rate = sample(c(0, 0.1), size = 100, replace = TRUE),
  pmt = 1000,
  nper = 10
)

df_foo %>% 
  mutate(
    if_else(
      rate > 0,
      optiRum::PV(rate = rate, pmt = -pmt, nper = nper),
      0
    )
  )

有没有办法只在条件为TRUE时计算TRUE值？

Answer 1

这不是if_else特有的问题，基本版本ifelse行为相同。 从ifelse的帮助文件中我们可以读到：

如果yes或no太短，其元素将被回收。 yes会进行评估，当且仅当任何元素test是真实的，类似的no 。

在许多情况下，使用ifelse是不合适的，并且在其中一个条件中引发错误警告是一个。

做你想要的解决方案（没有dplyr ）是：

df_foo$x <- 0
df_foo$x[df_foo$rate > 0] <- with(df_foo[df_foo$rate > 0, ], optiRum::PV(rate, nper, -pmt))