如何在聚合结果中包含标识符列 (R)

Question

我有一个数据框，想获取每个组的A、B、C 列的最小值。

df <- data.frame(ID = seq(1,9,1),
                group = c(1,1,1,2,2,2,3,3,3),
                A = runif(9, min=0, max=10),
                B = runif(9, min=-10, max=10),
                C = runif(9, min=0, max=100))

require(reshape2)
df_melt <- melt(data = df, id.vars = c("ID", "group"))


dat_min <- aggregate(x = df_melt[, 4], 
                     by = list(group = df_melt$group, variable = df_melt$variable), 
                     FUN = min, 
                     na.rm=TRUE)

我希望将ID 列附加到dat_min 数据框，以便生成的数据框为：

group   variable          x         ID
1        A          0.4934011       3
2        A          4.3482557       6
3        A          1.6423930       7
1        B          6.1969513       2
...     ...         ...             ...

这在aggregate 内可能吗？如何在分组/聚合过程中包含 ID 列而不实际使用它？

Answer 1

我认为这可以解决问题，它依靠过滤而不是聚合来保留最小值：

library(dplyr)
library(tidyr)

df %>% 
  gather(var, val, A, B, C) %>%
  group_by(group, var) %>%
  arrange(group, val) %>%
  filter(row_number() == 1)

如果您相当有信心不会重复任何值，那么这可能会起作用：

df %>% 
  gather(var, val, A, B, C) %>%
  group_by(group, var) %>%
  summarize(min_val = min(val),
            id = max(ID * (val == min(val))))

如果有平局，则重新创建以获得多行：

set.seed(1)
df <- data.frame(ID = seq(1,9,1),
                 group = c(1,1,1,2,2,2,3,3,3),
                 A = sample(1:5, 9, replace = TRUE),
                 B = sample(1:5, 9, replace = TRUE),
                 C = sample(1:5, 9, replace = TRUE))

df %>% 
  gather(var, val, A, B, C) %>%
  group_by(group, var) %>%
  filter(val == max(val)) 

如果您希望所有行都具有最小值，请将 max(val) 更改为 min(val)。