各位老师好，我想计算分组中位数，但是要去除本行之后计算，代码做不出来，请教。
library(tidyverse);library(magrittr)
set.seed(123456)
data<-data.frame(ID=1:1000,
                 Group=sample(LETTERS,1000,replace=T),
                 N=sample(1:10000,1000))
data %>% group_by(Group) %>% mutate(N_median=median(N),
                                    N_median_i=median(N[-i])) %>% str
data %>% group_by(Group) %T>% str->data
for (i in 1:nrow(data)) {
  data$N_median_i=median(data$N[-i])
}
把自己试的过程也贴上去，请指教。