根据另一列中的多项选择拉取一列的平均值

Question

我有一个如下所示的数据集：

      x    y
1  0.850 85.0
2  0.855 85.5
3  0.860 86.0
4  0.865 86.5
5  0.870 87.0
6  0.875 87.5
7  0.880 88.0
8  0.885 88.5
9  0.890 89.0
10 0.895 89.5
11 0.900 90.0
12 0.905 90.5
13 0.910 91.0
14 0.915 91.5
15 0.920 92.0
16 0.925 92.5
17 0.930 93.0
18 0.935 93.5
19 0.940 94.0
20 0.945 94.5
21 0.950 95.0

structure(list(x = c(0.85, 0.855, 0.86, 0.865, 0.87, 0.875, 0.88, 
0.885, 0.89, 0.895, 0.9, 0.905, 0.91, 0.915, 0.92, 0.925, 0.93, 
0.935, 0.94, 0.945, 0.95), y = c(85, 85.5, 86, 86.5, 87, 87.5, 
88, 88.5, 89, 89.5, 90, 90.5, 91, 91.5, 92, 92.5, 93, 93.5, 94, 
94.5, 95)), class = "data.frame", row.names = c(NA, -21L))

我正在尝试根据 x 列中的一系列值来提取 y 的平均值。例如，如果 x 大约为 0.86、0.90 和 0.91，我想构建代码以给出平均 y。我尝试构建的代码如下所示：

library(dplyr)

data%>%group_by(round(x,digits = 2)==c(0.86,0.90,0.91))%>%select(y)%>%
  summarise_each(funs(mean(., na.rm = TRUE)))

我得到的答案只是 group_by 陈述的真假平均值。我如何重新排列代码，以便我只得到我正在寻找的三个平均值 (0.86、0.90、0.91) 而不是真正的错误平均值？

Answer 1

您可以在使用 %in% 运算符执行 summarise() 后筛选要查找的平均值。

library(tidyverse)

data %>% 
  mutate(x = round(x, 2)) %>% 
  group_by(x) %>%
  summarise(across(everything(), mean)) %>% 
  filter(x %in% c(0.86, 0.90, 0.91))

根据另一列中的多项选择拉取一列的平均值

Pulling the average of one column based on multiple selections in another column

r

dplyr

average

mean