I would like to bin two columns of a dataset simultaneously to create one common binned column. The simple code is as follows

```
x <- sample(100)
y <- sample(100)

data <- data.frame(x, y)

xbin <- seq(from = 0, to = 100, by = 10)
ybin <- seq(from = 0, to = 100, by = 10)

```

Any help is appreciated!