如何从向量的平均值中选择最远的值

有很多方法可以做到这一点。根据您的示例和要求,您可以,

m <- 10
vector[head(order(abs(vector - mean(vector)), decreasing = TRUE), m)]
#[1] -0.3341505 -0.2072436 -0.1943636 -0.1911047  0.1638799  0.1419900 -0.1560437 -0.1387382  0.1172354  0.1132148

这意味着:

• 从平均值中取每个值之差的绝对值
• 订单递减(从最大值开始)。订单给出的是指数而不是实际值(如 sort 确实如此)
• 拿第一个 m 值使用 head . 另一种选择是 [1:m]
• 将索引包装在向量中以获得实际 vector 价值观

您可以使用dplyr:

vector%>%as_tibble()%>%mutate(dist_Mean = abs(value - mean(value) ))%>%arrange(desc(dist_Mean))%>%top_n(10)

另一种方法是基于 标准偏差 这是可调的。

认为 mn <- mean(vector) 和 std <- sd(vector) 然后

d <- 1.5
vector[vector<(mn-d*std) | vector>(mn+d*std)]

#[1] -0.2072436 -0.3341505 -0.1943636  0.1638799 -0.1911047

通过调整 d ,您决定要偏离平均值多远。

( d=1 给出的数字与平均值的标准偏差超过1)