每组唯一的不同行

Question

我有一个看起来像这样的数据框

    DF <- data.frame(x=rep(c("A", "B", "C"), times=1, each=3),
            y=c(1,2,3))

这给了我

       x y
     1 A 1
     2 A 2
     3 A 3
     4 B 1
     5 B 2
     6 B 3
     7 C 1
     8 C 2
     9 C 3

在我的原始数据框中，每列代表一个人。 所以我必须将一个x与一个y匹配，给我类似

    x y
    A 1
    B 2
    C 3

换句话说，我需要将y与x进行分组，但是y不得沿数据帧重复。

有什么建议吗？

我真的在stackoverflow上寻找它，但是找不到任何可以帮助我的东西。 谢谢！！

Answer 1

使用dplyr的解决方案，假设所有组的行数均与组号相同。

library(dplyr)

DF2 <- DF %>%
  mutate(Group_ID = group_indices(., x)) %>%
  group_by(x) %>%
  summarise(y = y[first(Group_ID)]) %>%
  ungroup()
DF2
# # A tibble: 3 x 2
#   x         y
#   <fct> <dbl>
# 1 A         1
# 2 B         2
# 3 C         3

或者我们可以使用以下方法：

DF2 <- DF %>% filter(as.numeric(x) == y)
DF2
#   x y
# 1 A 1
# 2 B 2
# 3 C 3

这是有效的，因为列x是因子。 将其转换为数字时，可以直接使用y的值进行过滤。