R中的群组中位数

Juan 发表于 Dev

胡安

我有以下数据框，如果值高于组的中位数，则想引入一个虚拟对象。

df<-data.frame(group=rep(c("A","B","c"),3), value1=c(1:9))
m<-aggregate(. ~ group, data=df, FUN=median)
names(m)[2]<-"median"
df<-merge(df,m, by="group", all.x = T)
df$median_0_1<-ifelse(df$median<df$value1,1,0)

有没有更优雅的方法可以做到这一点？

而且，我可以调整此值以将虚拟对象设置为高于或低于第三四分位数吗？

而且，这是一种可靠的方法，将可靠地工作吗？

非常感谢。

杰伊

优雅在于情人的眼中，但是您对此感觉如何。

df <- within(df, {
  median <- ave(value1, group, FUN=median)
  median_0_1 <- ifelse(median < value1, 1, 0)
  quantile3 <- ave(value1, group, FUN=function(x) quantile(x, probs=.3))
  quantile_0_1 <- ifelse(quantile3 < value1, 1, 0)
})
df
#   group value1 quantile_0_1 quantile3 median_0_1 median
# 1     A      1            0       2.8          0      4
# 2     B      2            0       3.8          0      5
# 3     c      3            0       4.8          0      6
# 4     A      4            1       2.8          0      4
# 5     B      5            1       3.8          0      5
# 6     c      6            1       4.8          0      6
# 7     A      7            1       2.8          1      4
# 8     B      8            1       3.8          1      5
# 9     c      9            1       4.8          1      6

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。