可以使用range()函数返回包含x的最小值和最大值的向量。
然后子集x排除这些值，并取平均值。

mean(x[!x %in% range(x)]) # 3.5

这是内置在默认的mean函数中的。要去掉顶部和底部的值，请使用mean(x, trim = 1/length(x))。这会去掉顶部和底部的一个观测值。

解决这个问题的一个可能的方法是：

x <- 1:6

x <- sort(x) # increasing order

mean(x[-c(1, length(x)]) # remove first and last value from vector
[1] 3.5

或者这样：

mean(x[-c(min(x), max(x))])
[1] 3.5

以下是您的which解决方案：

x <- sample(1:10)
x
[1]  7  1 10  5  4  3  8  2  9  6
x[-which(x == max(x) | x == min(x))]
[1] 7 5 4 3 8 2 9 6
mean(x[-which(x == max(x) | x == min(x))])
[1] 5.5