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

Question

我有一个包含145个rown和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))