如何从每个点的计算中排除某些列

Question

我有一个以前3个月平均股票回报率为200个公司的数据集，共92个月。几个月是行，公司是列。现在我必须计算前20％的公司的平均值，因为这些值非零。以下是代码：

mmt1<-mean(as.numeric(comb[1,1:40]))

我需要知道如何从平均值计算中排除零值。

Answer 1

mmt1<-mean(as.numeric(comb[, which(colSums(comb)!=0)]))