考虑到数据的子集,如何获得每个数据帧行的百分位数值？

Question

我有一个包含145个rowns和1000多列的数据框.

对于每一行,我想提取第95百分位数的值,但仅计算大于或等于1的数据.

考虑到所有数据,我设法计算每一行的值,如下所示:

p95.obs <- apply(obs,1,quantile,probs=c(.95))

包括我尝试的大于选项

p95.obs <- apply(obs>=1,1,quantile,probs=c(.95))

但是这样我每行只获得1.

Answer 1

你可以试试

 apply(obs, 1, function(x) quantile(x[x>=1], probs=.95))