R语言中如何提取向量中与均值最偏离的Top10值？

Got it, let's sort this out for you! You’re already halfway there by calculating the absolute distances from the mean—you just need to link those sorted distances back to the original values in your vector. Here are two straightforward, reliable ways to do this in R:

Method 1: Base R (No Extra Packages Needed) #

This approach uses core R functions to keep track of which original values correspond to the largest distances.

# Your original vector
vector <- c(0.096846906, 0.068149926, -0.019938431, -0.095515090, -0.109936195, -0.006755265, -0.207243555, 0.117235435, -0.036333873, -0.156043650, -0.334150484, 0.141990040, -0.116270635, 0.079373531, 0.070359814, 0.090415147, 0.046807444, -0.024908308, 0.022005548, 0.015559027, 0.065343488, 0.039524657, 0.077209216, 0.051124695, 0.076794957, -0.059121977, 0.071967601, 0.042357348, 0.039801927, 0.053932640, -0.036346802, -0.070258993, -0.105611663, -0.138738161, -0.044395825, -0.194363631, -0.127153662, 0.052912436, 0.163879916, 0.087960810, 0.005298789, -0.191104683, 0.113214756, 0.045232380)

# Calculate the mean (better than manual entry to avoid errors)
mean_val <- mean(vector)

# Compute absolute distance from each element to the mean
distances <- abs(vector - mean_val)

# Get indices of the top 10 largest distances (sorted in descending order)
top10_indices <- order(distances, decreasing = TRUE)[1:10]

# Extract the original values corresponding to those indices
top10_values <- vector[top10_indices]

# Optional: Create a data frame to see values and their distances side-by-side
result_df <- data.frame(
  Original_Value = top10_values,
  Distance_from_Mean = distances[top10_indices]
)

print(result_df)

How this works: #

The order() function returns the positions of elements in the original vector sorted by their distance (we use decreasing = TRUE to start with the largest distances). We take the first 10 positions, then use those indices to pull the matching values from your original vector.

Method 2: Tidyverse Approach (More Readable) #

If you prefer a more intuitive, human-readable workflow, the dplyr package makes this simple by keeping values and their distances linked in a table:

library(dplyr)

# Convert vector to a tibble, calculate distances, sort, and pick top 10
result_tidy <- tibble(Original_Value = vector) %>%
  mutate(Distance_from_Mean = abs(Original_Value - mean(Original_Value))) %>%
  arrange(desc(Distance_from_Mean)) %>%
  slice_head(n = 10)

print(result_tidy)

Why your initial approach didn't work: #

When you ran sort(abs(vector-mean(vector))), you only got the sorted distance values—but lost the connection to which position those distances came from in the original vector. The methods above preserve that link, so you can map back to the original values easily.

Pro tip: Always calculate the mean directly with mean(vector) instead of typing it manually—it eliminates the risk of rounding errors or typos!

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