如何在R中剪切具有相同中断的多个列？

我正在尝试从多个列中总结分段内的计数。
我的数据集包含年龄数据列，如下所示

1. 2. 44.550775 43.205206 49.710284 51.914791 ... ... 范例

df=data.frame(matrix(runif(10*3,0,70),10,3))

sapply(df,function(x){table(cut(x,breaks=seq(0,70,5)))})

        X1 X2 X3
(0,5]    2  1  0
(5,10]   1  1  1
(10,15]  0  2  0
(15,20]  1  1  1
(20,25]  0  1  2
(25,30]  0  1  1
(30,35]  2  0  2
(35,40]  1  1  1
(40,45]  2  0  0
(45,50]  0  1  0
(50,55]  0  0  0
(55,60]  0  0  1
(60,65]  0  0  1
(65,70]  1  1  0

---

非常感谢，这工作做得很好！