有效计算列的统计信息（缺失值除外）

Question

因此，我试图提取不包含缺失值的列中的数字，然后在R中计算特定的统计信息。我当前的方法是

mean(subset(PV97[[1]], 
            subset = !is.na(PV97[[1]])))

这似乎效率很低，我敢肯定有更好的方法可以做到这一点。我也不想仅仅为了简单和功能就使用管道。