用cut()函数绑定后填充空单元格

Question

我正在使用cut()函数来对向量整数进行装箱。该过程运行良好，并提供了落入每个桶中的整数数，但是对于没有编号的回收箱，它没有列出。我想把这些填入，这样每个垃圾箱和没有数字的垃圾桶都有一个单元格，它用0填充它们。例如：

set.seed(123)
x <- sample(1:3, 100, replace = TRUE) 
bins <- cut(x, breaks = 4, labels =FALSE)
bins_tab <- table(bins)
bins_tab

这意味着：

bins
 1  3  4 
33 34 33

我想用0填写2，以便输出如下：

 bins
 1  2  3  4 
33  0 34 33

所有的帮助都很感激。

Answer 1

是像这样吗？

table( cut( x , breaks = 4 , labels = 1:4 ) )

# 1  2  3  4 
#33  0 34 33 

即，确保空因子级别有一个标签。