将子群应用于R中的子群

我用这段代码创建了两个基于分位数的子集列，一列用于中值分割，另一列用于四分位数分割

 mtcars <- subset(mtcars, select = c("cyl", "disp"))
 mtcars$median_split <- ifelse(mtcars$disp <= median(mtcars$disp), "below_median","above_median")
 mtcars$quantile_split <- cut(mtcars$disp, breaks = c(0, quantile(mtcars$disp)),labels = c("1_quartile",paste0(1:4, "_quartile")))

---

mtcars这可以使用
dplyr
软件包完成：

library(dplyr)
mtcars %>%
  select(cyl, disp) %>%
  group_by(cyl) %>%
  mutate(median_split = ifelse(disp <=median(disp), "below_median","above_median"),
         quartile_split = cut(disp, breaks = c(0, quantile(disp)), labels = c("1_quartile",paste0(1:4, "_quartile")))) %>%
  arrange(cyl)

库（dplyr）
mtcars%>%
选择（气缸，显示）%>%
组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别
变异（中位数分割=ifelse（disp%）
安排（共青团）

此代码按
cyl
列对数据进行分组，然后根据每个
cyl
组中的
disp
值计算
media\u split
和
quartile\u split
。
wooooooo！太棒了！非常感谢。