使用分割-应用-合并方法两次。
1.在","上拆分position和substitution列。将它们作为新列（使用"_1"）以保留原始列。
1.在“/”上拆分拆分后的substitution列，以获得单个字符作为矢量。
1.使用sprintf按要求的顺序创建一个字符串。
1.将字符串以逗号分隔粘贴在一起。

library(dplyr)
library(purrr)

df %>%
  mutate(across(c(position, substitution), 
          ~strsplit(.x, ", "), .names = "{col}_1"), 
         substitution_1 = map(substitution_1, ~strsplit(.x, "/")), 
         combined = map2_chr(position_1, substitution_1, \(x, y) {
           toString(map2_chr(x, y, \(p, q) sprintf("%s%s%s", q[1], p, q[2])))
          })) %>%
  select(-ends_with("_1"))

#  name  position    substitution  combined         
#  <chr> <chr>       <chr>         <chr>            
#1 A     123, 45     A/B, C/D      A123B, C45D      
#2 B     67, 891, 23 E/F, G/H, J/K E67F, G891H, J23K

字符串

你可以试试下面的代码

df %>%
    separate_rows(-name, sep = ",\\s+") %>%
    summarise(
        combined = toString(map2_chr(substitution, position, \(x, y) sub("/", y, x))),
        .by = name
    )

字符串
这给

# A tibble: 2 × 2
  name  combined
  <chr> <chr>
1 A     A123B, C45D
2 B     E67F, G891H, J23K

型

答案都很好。我的一个朋友想出了一个不同的解决方案：

library(tidyverse)

df <- tibble(name = c("A", "B"),
             position = c("123, 45", "67, 891, 23"),
             substitution = c("A/B, C/D", "E/F, G/H, J/K"))

df <- 
  df |>
  separate_longer_delim(c(position, substitution), ", ") |>
  mutate(combined = paste0(substring(substitution, 1, 1), position, substring(substitution, 3, 3))) |>
  group_by(name) |>
  summarise(
    position = paste(position, collapse = ","),
    substitution = paste(substitution, collapse = ","),
    combined = paste(combined, collapse = ",")
  )

字符串

有很多很好的答案。这里有另一个，所有的tidyverse，但没有取代的功能：

library(tidyverse)    

df %>%
  separate_longer_delim(-name, delim = ", ") %>% 
  separate_wider_delim(substitution, names = c("start", "end"), delim = "/") %>% 
  mutate(name, combined = paste0(start, position, end), .keep = "none") %>% 
  summarise(.by = name, combined = str_flatten_comma(combined))

# A tibble: 2 × 2
  name  combined         
  <chr> <chr>            
1 A     A123B, C45D      
2 B     E67F, G891H, J23K

字符串