tidyverse：如果满足特定条件，则连接行

若另一列的行相同（Fn），我想连接列（Des）中的行。请给我任何提示

library(tidyverse)
tb1 <-
  tibble(
    Fn = c("A" , "B", "B", "C", "D", "D")
  , Des = c("A1", "B1", "B2", "C1", "D1", "D2")
  )
tb1

# A tibble: 6 x 2
  Fn    Des  
  <chr> <chr>
1 A     A1   
2 B     B1   
3 B     B2   
4 C     C1   
5 D     D1   
6 D     D2 

库（tidyverse）
tb1带
dplyr
只需按Fn分组并粘贴+折叠行即可

tb1%>%
分组依据（Fn）%>%
总结（Des=粘贴（Des，collapse=“”））
#>#tibble:4 x 2
#>Fn Des
#>    
#>1 A A1
#>2 B B1 B2
#>3 C C1
#>4d首被告及次被告

带
base
R
aggregate（Des~Fn，tb1，paste，collapse=”“）
#>Fn Des
#>1 A A1
#>2 B B1 B2
#>3 C C1
#>4d首被告及次被告
带有
dplyr
只需按Fn分组并粘贴+折叠行即可

tb1%>%
分组依据（Fn）%>%
总结（Des=粘贴（Des，collapse=“”））
#>#tibble:4 x 2
#>Fn Des
#>    
#>1 A A1
#>2 B B1 B2
#>3 C C1
#>4d首被告及次被告

带
base
R
aggregate（Des~Fn，tb1，paste，collapse=”“）
#>Fn Des
#>1 A A1
#>2 B B1 B2
#>3 C C1
#>4d首被告及次被告

Fn    Des  
<chr> <chr>
A     A1   
B     B1 B2   
C     C1   
D     D1 D2