r - dplyr 变异 : Excluding observations similar to the current one

Question

我有一些这样的数据:

X   Y
-----
A   1
A   2
B   3
B   4
C   5
C   6

我想添加一个新列，其值等于行中所有 Y 的平均值，其中 X 不等于当前观察的 X。 在这种特殊情况下，我们会得到

X   Y   Mean
-------------------
A   1   (3+4+5+6)/4
A   2   (3+4+5+6)/4
B   3   (1+2+5+6)/4
B   4   (1+2+5+6)/4
C   5   (1+2+3+4)/4
C   6   (1+2+3+4)/4

提前致谢!

Answer 1

您可能会更简洁地执行此操作，但这会给您带来结果。

您实际上创建了一个列，其中包含整个 data.frame 的总观察值和记录总和。然后按 X 列分组并重复该过程，通过取差可以计算平均值。

数据

df <- data.frame(X = c("A", "A", "B", "B", "C", "C"),
                 Y = c(1:6))

---

解决方案

library(tidyverse)
df %>%
  mutate(total_sum = sum(Y),
         total_obs = n()) %>%
  group_by(X) %>%
  mutate(group_sum = sum(Y),
         group_obs = n()) %>%
  ungroup() %>%
  mutate(other_group_sum = total_sum - group_sum,
         other_group_obs = total_obs - group_obs,
         other_mean = other_group_sum/other_group_obs) %>%
  select(X, Y, other_mean)

---

结果

# A tibble: 6 x 3
  X         Y other_mean
  <fct> <int>      <dbl>
1 A         1       4.50
2 A         2       4.50
3 B         3       3.50
4 B         4       3.50
5 C         5       2.50
6 C         6       2.50