R cut 函数中的舍入

Question

有谁知道R如何在cut函数中选择有效位数？

y<-c(61, 64, 64, 65, 66)
table(cut(y, breaks=c(60.555, 67.123, 75.055)))

产生结果

(60.6,67.1] (67.1,75.1] 
          5           0 

但是

table(cut(y, breaks=c(60.958, 67.958, 74.958)))

产生结果

(61,68] (68,75] 
      5       0 

我希望 r 使用我在 cut 函数中提供的确切边界，但它似乎是四舍五入的。我不清楚它如何选择舍入精度。请参见下面的示例。是否可以强制 R 使用我的确切边界？

Answer 1

如何使用 nchar 来计算每次切割的位数？以下是三个示例。

> y <- c(61, 64, 64, 65, 66)
> breaks1 <- c(60.555, 67.123, 75.055)
> table(cut(y, breaks = breaks1, dig.lab = min(nchar(breaks1))))

## (60.555,67.123] (67.123,75.055] 
##               5               0 
> breaks2 <- c(60.5, 67.1, 75.4)
> table(cut(y, breaks = breaks2, dig.lab = min(nchar(breaks2))))

## (60.5,67.1] (67.1,75.4] 
##           5           0 
> breaks3 <- c(60, 67, 75)
> table(cut(y, breaks = breaks3, dig.lab = min(nchar(breaks3))))

## (60,67] (67,75] 
##       5       0 

注意 min 的使用只是为了控制在中断向量中的数字不相同时会出现的警告消息。