转到最近的10点

Question

所以我有一列从10到100之间的值，我希望它们都被四舍五入到最近的10，诀窍是我希望它总是四舍五入。例如，55岁将变成50岁，而不是60岁。我想地板将实现这一点，但当我尝试滚，它只返回相同的值不变。

x
10
15
20
27
30
34

等等。

我想要的：

x
10
10
20
20
30
30

我试过的是：

data$x <- floor(data$x)

这只给了我完全相同的值。

Answer 1

由于floor(x)的整数y小于x，所以可以将x中的所有值除以10，得到地板，然后乘以10；也就是说，您可以使用floor(x/10) * 10。

x <- c(10,
       15,
       20,
       27,
       30,
       34)
floor(x/10) * 10
# [1] 10 10 20 20 30 30

Answer 2

您不需要在这里发言，请向%/%查询

v%/%10*10
[1] 10 10 20 20 30 30