我有一个包含~32k行和36列的数据框。我正在尝试计算每行的mean，并创建一个单独的column，其中包含每行的mean。我最初通过data$mean <- data[,19:33]计算了columns 19:33，但现在我想排除每行中的最大值和最低值来计算平均值。每行在不同的位置都有不同的高值和低值。如何在排除每行中的这两个值的同时有效地计算每行的平均值？
尝试使用apply，%in%，range
apply(df[,19:33], 1, function(x) mean(x[!x %in% range(x)]))