如何在数据框中获取相同 ID 的不同值。并为相同的 ID 替换任何不同的值 [重复]

Question

我正在处理数据帧并且有一个数据集让我们说

ID   Name
1     aaa
1     aaa.
1     aaa
2     ccc
3     111.
3     333
3     111
3     111

我想要每个 ID 的最长字符串 输出。

1     aaa.
2     ccc
3     111.

数据：

dat <- structure(
  list(
    ID = c(1L, 1L, 1L, 2L, 3L, 3L, 3L, 3L),
    Name = c("aaa", "aaa.", "aaa", "ccc", "111.", "333", "111", "111")
    ),
  class = "data.frame",
  row.names = c(NA,-8L)
  )

Answer 1

与dplyr:

dat %>% 
  group_by(ID) %>% 
   filter(nchar(Name)==max(nchar(Name)))
# A tibble: 3 x 2
# Groups:   ID [3]
     ID Name 
  <int> <chr>
1     1 aaa. 
2     2 ccc  
3     3 111.

使用base（可能需要一些过滤来匹配名称）：

aggregate(.~ID,dat,function(x) x[which.max(x)])
  ID Name
1  1 aaa.
2  2  ccc
3  3  333

按照@Wil 的建议使用slice 和dplyr：

dat %>% 
group_by(ID) %>% 
slice(which.max(nchar(Name)))