dplyr：将所有值除以第一个子组

Question

编辑：用户 arg0naut 已回答该问题。谢谢！

我有许多按组（命名为 2-4）和子组（命名为 1-6）组织的观察。我想将组中的每个观察值除以其子组 1 的平均值（以便将组中的每个数据点标准化为其子组 1 的平均值）。此外，有些观察结果不适用。

这是我尝试调整的代码，到目前为止，它将每个观察值除以整体平均值：

data %>%
group_by(Group) %>%
mutate("New Variable" = Observation / mean(Observation, na.rm = TRUE))

我不知道如何表示我不想要整体平均值，而是每个组的子组 1 的平均值。我已经尝试了几个小时，但总是失败。

我附上了一张图片，可以帮助你理解我的意思。

感谢您的考虑！

Image

Answer 1

我认为您只需要按 subgroup 而不是 group 进行分组。 这是一个例子：

data <-
  data.frame(
    "Group" =  rep(2, 15),
    "Subgroup" = rep (1:2, c(10, 5)),
    "Observation" = c(rnorm(14), NA)
  )
data %>%
  group_by(Subgroup) %>%
  mutate("New variable" = Observation / mean(Observation, na.rm = TRUE))