一种方法是获取长格式的数据，在单独的列中获取后缀。我们可以合并每个后缀的值，并再次获得宽格式的数据。

library(dplyr)
library(tidyr)

df %>%
  pivot_longer(cols = everything(), names_sep = "_", 
               names_to = c("type", "suffix")) %>%
  summarise(value = paste(value, collapse = " "), .by = suffix) %>%
  pivot_wider(names_from = suffix, names_prefix = "Fullname_")

# Fullname_1 Fullname_2
#  <chr>      <chr>     
#1 Joe Bloggs Dave Jones

字符串

数据

如果在reproducible format中提供数据，则更容易提供帮助

df <- structure(list(Forename_1 = "Joe", Surname_1 = "Bloggs", 
     Forename_2 = "Dave", Surname_2 = "Jones"), row.names = c(NA, -1L), 
     class = "data.frame")

型

带有split.default的基本R选项

list2DF(
    lapply(
        split.default(df, sub(".*_", "Fullname_", names(df))),
        paste0,
        collapse = " "
    )
)

字符串

数据

> dput(df)
structure(list(Forename_1 = "Joe", Surname_1 = "Bloggs", Forename_2 = "Dave",
    Surname_2 = "Jones"), row.names = c(NA, -1L), class = "data.frame")

型
给予

Fullname_1 Fullname_2
1 Joe Bloggs Dave Jones

型