我有以下数据集：
> head(GLM_df)
# A tibble: 6 x 7
# Groups: hour [6]
hour Feeding Foraging Standing ID Area Feeding_Foraging
<int> <dbl> <dbl> <dbl> <chr> <chr> <dbl>
1 0 3.61 23.2 1 41361 Seronera 26.8
2 1 2.85 24.2 1 41361 Seronera 27.0
3 2 2.5 24.3 2 41361 Seronera 26.8
4 3 6.92 18.6 3.89 41361 Seronera 25.6
5 4 7.5 17.6 3.78 41361 Seronera 25.1
6 5 7.26 19.6 2.45 41361 Seronera 26.8
并希望四舍五入Standing和Feeding_Foraging列中的数字。我正在使用as.integrer()，如下所示：
> GLM_df$Standing<-as.integer(GLM_df$Standing)
> GLM_df$Feeding_Foraging<-as.integer(GLM_df$Feeding_Foraging)
> head(GLM_df)
# A tibble: 6 x 7
# Groups: hour [6]
hour Feeding Foraging Standing ID Area Feeding_Foraging
<int> <dbl> <dbl> <int> <chr> <chr> <int>
1 0 3.61 23.2 1 41361 Seronera 26
2 1 2.85 24.2 1 41361 Seronera 27
3 2 2.5 24.3 2 41361 Seronera 26
4 3 6.92 18.6 3 41361 Seronera 25
5 4 7.5 17.6 3 41361 Seronera 25
6 5 7.26 19.6 2 41361 Seronera 26
但是，这将26.8舍入为26，我希望将26.8舍入为27。另一方面，我希望将小于0.5小数部分（例如：25.1）的值四舍五入为使用as.integrer()（例如：25）。
是否可以使用该功能？我是否需要代码？
感谢任何输入！