r - 如何基于 dplyr 中的 ntile()-groups 应用变异？

Question

我曾尝试根据类似 questions 寻找答案

对 tidyverse 绝对陌生，我有以下问题:如何估计每个 ntile() 的中位数使用 dplyr

# Data    
library(survival)
data(lung)

第一的

p <- lung %>% mutate(test=ntile(inst,3))

所以现在那

table(p$test)

 1  2  3 
76 76 75 

我想估计中间时间，即 p$time , 每 p$test
就像是

p %>% mutate(test=ntile(inst,3), test.time=median(time[test %in% 1:3]))

这没有提供我所寻求的。

Answer 1

我们可以使用'test'作为分组变量来计算median '时间'

library(dplyr)
lung %>% 
  group_by(test = ntile(inst, 3)) %>%
  mutate(test.time=median(time))

如果需要汇总输出，则替换 mutate与 summarise