R语言中如何计算向量x的均值并排除最小与最大值？

首先你之前的写法mean(g,-which.min(g),-which.max(g))是错误的——mean()函数的第二个参数是trim（用于指定修剪均值的比例），不是元素索引。要实现排除最小和最大值的均值，这里提供几种实用方法：

方法1：通过位置索引排除（适合仅排除各一个最小/最大值） #

如果向量里最小、最大值各只有一个，直接筛选掉这两个位置的元素后计算均值：

x <- c(1,2,3,4,5,6)
mean(x[-c(which.min(x), which.max(x))])
# 输出结果：3.5

方法2：通过逻辑条件排除（适合有多个重复最小/最大值的情况） #

如果向量存在多个相同的最小或最大值（比如x <- c(1,1,3,4,6,6)），想要排除所有这类值，用逻辑判断筛选元素：

x <- c(1,2,3,4,5,6)
mean(x[x != min(x) & x != max(x)])
# 输出结果：3.5

补充：用修剪均值快速实现 #

如果你的需求是去掉首尾各一个值，还可以直接用mean()的trim参数，按比例修剪：

x <- c(1,2,3,4,5,6)
mean(x, trim = 1/length(x))
# 输出结果：3.5

这种写法更简洁，但要注意trim是按比例设置，向量长度变化时需要调整比例值。

内容的提问来源于stack exchange，提问作者Bubba