Binning two columns of data frame together in R

Question

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!

Answer 1

Not sure if this is what you are looking for

library(tidyverse)

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)


data <- data%>%
  dplyr::mutate(
    x_binned = cut(x, breaks = seq(0,100,10)),
    y_binned = cut(y, breaks = seq(0,100,10))
  )

data %>% 
  ggplot() +
  geom_bin_2d(
    aes(x = x_binned, y = y_binned), binwidth = c(10,10), colour = "red") +
  theme_minimal()

Answer 2

After asking in the comments I am still not quite shure, what the desired answer would look like but I hope, that one of the two answers in the below code will work for you:

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)

data$xbin <- cut(data$x, breaks = xbin, ordered = TRUE)
data$ybin <- cut(data$y, breaks = ybin, ordered = TRUE)
data$commonbin1 <- paste0(data$xbin, data$ybin)
data$commonbin2 <- paste0("(",as.numeric(data$xbin),";", as.numeric(data$ybin),")")

head(data, 20)

This will construct a common binning variable commonbin1 that includes the bin-limits in the names of the bins and commonbin2 which will be easier to compare to the plot mentioned in the comment.