将数据四舍五入到最接近的偶数

Question

我认为这应该很容易做到。我有一个数据框 df有几列。在栏目a我有 1 到 100 之间的不同值。

通过比较它们，我想创建一个列 new在 df将它们分组。对它们进行分组的函数应该舍入 a 中的值至 最接近的偶数 并将其保存在 df$new .如 a = 0它应该设置 new至 NA .

请参阅以下示例:

... a  ... new
---------------
    0      NA
   87.3    88
   88.1    88
   81.7    82
   79.2    80
   89.4    90

Answer 1

我建议使用内部 round函数与 2 的除法/乘法相结合。

df <- data.frame(a = c(0, 87.3, 88.1, 81.7, 79.2, 89.4))

# Round to nearest even integer
df$new <- 2 * round(df$a/2)

# Set 0 values of original array to NA in the result
df$new[df$a == 0] <- NA

这将返回:

> df
     a new
1  0.0  NA
2 87.3  88
3 88.1  88
4 81.7  82
5 79.2  80
6 89.4  90