How to split the data into intervals in R-CodePudding

I have a dataframe with 2 columns namely p1 and p2. I need to split the p1 column into a range of values like 10-50, 50-100, 100-150, etc. After splitting the values of p1, the corresponding values of p2 should be printed. The sample input is given below.

df = data.frame(p1 = c(10,20,70,80,150,200),p2 = c(1000, 1111.7, 15522.1, 15729.3,18033.8,19358.2)).

The sample output is attached below.

CodePudding user response：

One way of doing it:

library(dplyr)

df %>%
  mutate(
    p1 = cut(p1, breaks = 0:(max(p1) %/% 50   1) * 50, include.lowest = TRUE)
  ) %>%
  group_by(p1) %>%
  summarise(p2 = list(p2))

CodePudding user response：

Maybe this?

setNames(
  aggregate(
    p2 ~ cut(p1, c(10, 50, 100, 150, 200), include.lowest = TRUE),
    df,
    c
  ), names(df)
)

gives

         p1               p2
1   [10,50]   1000.0, 1111.7
2  (50,100] 15522.1, 15729.3
3 (100,150]          18033.8
4 (150,200]          19358.2