得到矩阵R中每一行的四分位数

Question

我有一个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')"

我到底哪里错了？

Answer 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)