如果 R 中小于 1，则对有效数字进行四舍五入

Question

我想在 R 中创建一个 function 根据数字舍入数字数据帧（或数据帧中的列）。 如果数字小于 1，则四舍五入到小数点后 1，如果大于 1，则四舍五入到小数点后 0。

这就是我所拥有的

data <- data.frame(x = c(1.111, 0.809, 5.55555, 0.567), y = c(0.235, 0.777, 4.55555555, 393.55))
round0 <- function(x) format(round(x, digits=0), nsmall = 0, trim = TRUE)
round0(data)
   x   y
1  1   0
2  1   1
3  6   5
4  1 394

# What I want 
   x   y
1  1   0.2
2 0.8  1
3  6   5
4  1 394

Answer 1

> round0 <- function(x) ifelse(x<1,round(x,1),round(x))
> sapply(data,round0)
       x     y
[1,] 1.0   0.2
[2,] 0.8   0.8
[3,] 6.0   5.0
[4,] 0.6 394.0

Answer 2

您可以使用：

round0 <- function(x) ifelse(x < 1, format(round(x, 1), nsmall = 1), round(x))
data[] <- lapply(data, round0)
data
#    x     y
#1   1   0.2
#2 0.8   0.8
#3   6     5
#4 0.6   394

请注意，这仅用于显示目的，列的类别是字符类型。 如果要对其执行任何数学计算，则需要将其转换回数字。