将数据框特定列中的数字四舍五入到最近的季度

Question

我有一个数据集，如下所示：

    sample1 <-
    structure(list(ID = c( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10), 
    L = c(1.31,  1.62,  1.93,  2.24,  2.55,  2.86,  3.17,  3.48,  3.79,  4.10)), 
    class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -10L))

我需要将“L”列变量四舍五入到最接近的 0.00、0.25、0.5 和 0.75。我非常感谢您提供的任何帮助。

Answer 1

四舍五入到最接近的四分之一可以通过将原始数据乘以 4，四舍五入结果，然后除以 4 来完成（相当于，您可以将原始数据除以 0.25，四舍五入，然后乘以 0.25）：

sample1$L_round <- round(sample1$L * 4) / 4

      ID     L L_round
   <dbl> <dbl>   <dbl>
 1     1  1.31    1.25
 2     2  1.62    1.5 
 3     3  1.93    2   
 4     4  2.24    2.25
 5     5  2.55    2.5 
 6     6  2.86    2.75
 7     7  3.17    3.25
 8     8  3.48    3.5 
 9     9  3.79    3.75
10    10  4.1     4