如何找到R数据框列的修剪平均值?