如何在R中的cut函数中放置多个中断？

Question

我有3列，我希望像示例中一样，为每列设置3个不同的中断标签，但我不知道如何，因为我可以为同一中断标记多个列，但不能为不同的中断标签（br1，br2 ，br3）。

var <- 1:10

x1 <- rnorm(10, mean=100, sd=25)
x2 <- rnorm(10, mean=100, sd=25)
x3 <- rnorm(10, mean=100, sd=25)
df <- data.frame(var,x1,x2,x3)

#With 1 break for all the columns
br1 <-c(50,60,70,80,90,100,110,120,130,140)
df2 <-data.frame(lapply(df[, 2:4], cut, br=br1, labels=c(1:9)))

问题：我如何在同一代码或任何想法中为列x2和x3使用以下中断（#breaks 2和3），所以每个列（x1，x2，x3）都有一个中断（br1，br2，br3 ）？

#breaks 2 and 3
br2 <-c(30,40,45,55,61,70,98,105,115,138)
br3<-c(20,25,30,35,38,42,45,70,95,132)

Answer 1

您可以使用Map：