切割載體成組

Question

a <- -30:30 
cutSize <- 10 
b <- a %/% cutSize 
table(b) 
# Output 
-3 -2 -1 0 1 2 3 
10 10 10 10 10 10 1 

求購輸出

-3 -2 -1 0 1 2 3 
10 10 10 1 10 10 10 

我需要矢量分組（由cutSize）。始終使用%/%，但顯然它會「轉移」我的羣組。 我想組：

• 零組0
• 一切從1到10組1
• 從11到20組2
• ...

Answer 1

這裏的有點awkword解決方案

table(ceiling((a/cutSize) * sign(a)) * sign(a)) 
# -3 -2 -1 0 1 2 3 
# 10 10 10 1 10 10 10 

或類似地

table(ceiling(abs(a/cutSize)) * sign(a)) 
# -3 -2 -1 0 1 2 3 
# 10 10 10 1 10 10 10