Here is one way to bind numeric data using the cut() function.
DF <- data.frame(Depth = sample(0:26))
DF
#> Depth
#> 1 17
#> 2 13
#> 3 14
#> 4 22
#> 5 16
#> 6 10
#> 7 11
#> 8 15
#> 9 18
#> 10 3
#> 11 6
#> 12 26
#> 13 20
#> 14 2
#> 15 21
#> 16 8
#> 17 1
#> 18 19
#> 19 9
#> 20 25
#> 21 4
#> 22 23
#> 23 7
#> 24 5
#> 25 0
#> 26 24
#> 27 12
DF$Bins <- cut(DF$Depth, breaks = c(0, 7, 10, 15, 26), include.lowest = TRUE)
DF
#> Depth Bins
#> 1 17 (15,26]
#> 2 13 (10,15]
#> 3 14 (10,15]
#> 4 22 (15,26]
#> 5 16 (15,26]
#> 6 10 (7,10]
#> 7 11 (10,15]
#> 8 15 (10,15]
#> 9 18 (15,26]
#> 10 3 [0,7]
#> 11 6 [0,7]
#> 12 26 (15,26]
#> 13 20 (15,26]
#> 14 2 [0,7]
#> 15 21 (15,26]
#> 16 8 (7,10]
#> 17 1 [0,7]
#> 18 19 (15,26]
#> 19 9 (7,10]
#> 20 25 (15,26]
#> 21 4 [0,7]
#> 22 23 (15,26]
#> 23 7 [0,7]
#> 24 5 [0,7]
#> 25 0 [0,7]
#> 26 24 (15,26]
#> 27 12 (10,15]
Created on 2022-04-26 by the reprex package (v0.2.1)
I'm puzzled by the code you showed. You seem to be simply rebuilding your data set with modified column names. Is there a goal other than that?