获取矩阵 R 中每一行的四分位数

【问题标题】：get quartile for every row in matrix R获取矩阵 R 中每一行的四分位数
【发布时间】：2013-07-09 18:05:40
【问题描述】：

我有一个 46175*741 矩阵。我想得到每一行的四分位数。基于这个问题（How to create a column with a quartile rank?），我试过了：

dat_quartiles <- apply(t(dat) , 1, function(x) within(x, as.integer(cut(x, quantile(x, probs=0:4/4), include.lowest=TRUE))))

但我得到了错误：

Error in UseMethod("within") : no applicable method for 'within' applied to an object of class "c('integer', 'numeric')"

我到底哪里错了？

【问题讨论】：

标签： r

【解决方案1】：

我可能对您正在尝试做的事情了解太多，但这应该是我能想到的返回矩阵中每一行的四分位数的最简单方法：

mat <- matrix(rnorm(1000), 100,10)
apply(mat, 1, quantile)

分配分位数：

quantfun <- function(x) as.integer(cut(x, quantile(x, probs=0:4/4), include.lowest=TRUE))
apply(mat, 1, quantfun)

【讨论】：