您可以设置一个新的分组列na.grp，为Col2中的每个NA指定一个唯一的编号，并为那些非NA元素指定一个通用编号。

library(dplyr)

df %>%
  group_by(Col1, na.grp = ifelse(is.na(Col2), cumsum(is.na(Col2)), 0)) %>%
  summarise(Col2 = paste(Col2, collapse = ", "), .groups = "drop") %>%
  select(-na.grp)

# # A tibble: 5 × 2
#   Col1  Col2       
#   <chr> <chr>      
# 1 C64   NA         
# 2 C64   NA         
# 3 D19   Marquis    
# 4 D23   John, JohnY
# 5 F212  ALICE, BOB

数据

df <- read.table(text = "
Col1  Col2
F212  ALICE
D23   John
C64   NA
F212  BOB
C64   NA
D23   JohnY
D19   Marquis", header = TRUE)

使用reframe

library(dplyr)
df1 %>% 
  reframe(Col2 = if(all(is.na(Col2))) Col2 else toString(Col2[!is.na(Col2)])
      , .by = "Col1")

• 输出

Col1        Col2
1 F212  ALICE, BOB
2  D23 John, JohnY
3  C64        <NA>
4  C64        <NA>
5  D19     Marquis