将剪切功能应用于数据框的所有列

Question

我有一个由10个连续变量组成的数据框架：

dat <- data.frame(replicate(10, sample(0:10,15,rep=TRUE)))

假设我想按宽度将一列键入其中一列，因此最低值的值将很低，值的中间1/3是中等的，等等。 ？

break_point <- sort(dat$X1)[round(1 * length(dat$X1)/3)]
break_point1 <- sort(dat$X1)[round(2 * length(dat$X1)/3)]

dat$X1 <- cut(dat$X1, breaks = c(-Inf, break_point, break_point1, Inf), labels = c("low", "medium", "high"))

我如何同时计算所有柱子

dat[1:length(dat)] <- lapply(dat[1:length(dat)], cut(breaks = c(-Inf, break_point, break_point1, Inf), labels = c("low", "medium", "high")))

这就是我所拥有的，但它不起作用。正如它所说的

cut.default中的错误（breaks = c（-inf，break_point，break_point1，inf）， ：参数“ x”缺少，没有默认值

Answer 1

我们可能需要一个lambda函数

dat[] <- lapply(dat, function(x) cut(x, 
    breaks = c(-Inf, break_point, break_point1, Inf), 
     labels = c("low", "medium", "high")))

，或者简单地指定参数的名称，而不是cut（）

dat[] <- lapply(dat, cut, 
      breaks = c(-Inf, break_point, break_point1, Inf),
      labels = c("low", "medium", "high"))

Answer 2

尝试santoku :: chop_equaly（）：

library(santoku)
dat[] <-apply(dat, 2, santoku::chop_equally, groups = 3, 
        labels = c("low", "medium", "high"))

      X1       X2       X3       X4       ......
 [1,] "low"    "high"   "low"    "medium" ......
 [2,] "high"   "high"   "low"    "low"    ......
 [3,] "high"   "high"   "high"   "low"    ......
 ......

请注意，这是根据列的分位数为每个列创建单独的断点。
如果您始终想要相同的断点，也只需要做

breaks <- quantile(as.matrix(dat), 0:3/3)
dat[] <- apply(dat, 2, cut, breaks = breaks)

，您说要按间隔宽度（每个间隔的宽度相等）切碎，但是您的示例是通过分位数切碎的（每个间隔中相等的单元格数）。如果需要间隔的宽度，请使用santoku :: chop_evenly（）。