各位各位，我有个问题想请大家帮帮忙~~~

我现在想通过两个分组变量（id和group），选取layer中 中间的三个观测，我想的是先通过分组变量id和group计算layer中的中位数，然后把中位数向上取整，然后中位数加1，中位数减1，就可以确定中间的三个观测了，但是怎么用代码实现啊{:2_38:}

我想通过① group_by(id,group) %>% median(layer) ，然后报错
②subset（test, layer == ceiling(median(layer)) | layer == ceiling(median(layer))+1 | layer == ceiling(median(layer))-1）,但是没有用到分组变量啊！！！
③还有用data.table包：test[,layer == ceiling(median(layer)) | layer == ceiling(median(layer))+1 | layer == ceiling(median(layer))-1,by = list(group,id)] 出来的结果也是报错

好(；′⌒`)桑心蓝过啊，附上我的数据！！！！