找到数字列的最低价格的平均值

Question

如何找到数字列的3个最低价格的平均值（country_1）？想象一下我有数千个值？

d<-structure(list(Subarea = c("SA_1", "SA_2", "SA_3", "SA_4", "SA_5", 
"SA_6", "SA_7", "SA_8", "SA_10", "SA_9"), Country_1 = c(101.37519256645, 
105.268942332558, 100.49933368058, 104.531597221684, NA, 83.4404308144341, 
86.2833044714836, 81.808967345926, 79.6786979951661, 77.6863475527052
)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-10L))

Answer 1

通过上升值，取3个第一个值并计算平均值来对矢量进行排序。

mean(head(sort(d$Country_1), 3))
# [1] 79.72467

使用sapply或dplyr ::跨如果要对多列这样做：

sapply(df[, your_columns], \(x) mean(head(sort(x), 3)))

# or

library(dplyr)
d %>%
   mutate(across(your_columns, ~ mean(head(sort(.x), 3)))

Answer 2

如果您仅关心最小3个值，并且数据量较大，则使用sort（）使用partial = 1：3更有效。

mean(sort(sample(d$Country_1), partial = 1:3)[1:3])

Answer 3

slice_min的选项

library(dplyr)
d %>% 
 slice_min(n = 3, order_by = Country_1) %>% 
 summarise(Mean = mean(Country_1))
# A tibble: 1 × 1
   Mean
  <dbl>
1  79.7