分组中位数（不包含本行）计算

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位老师好，我想计算分组中位数，但是要去除本行之后计算，代码做不出来，请教。
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])
}
把自己试的过程也贴上去，请指教。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

1. data %>% group_by(Group) %>%
   
2.   mutate(N_Median_adj=median(N[-ID]),
   
3.          N_Median_real = median(N))%>%
   
4.   ungroup()

复制代码

感谢zhou1_20老师的热心帮助。

不了解R

如果是Stata软件
可以下载rangestat  命令
可以求分组扣除本身的中位数

蓝色 发表于 2020-4-3 15:41
不了解R

如果是Stata软件

感谢蓝色老师的指点