我们可以创建一个tibble/data.frame，使用.unpack选项并重命名列

library(dplyr)
library(stringr)
df %>%
  mutate(across(starts_with("x_"), 
                ~ data.frame(x = .x, y = .x * 2), .unpack = TRUE),
   .keep = 'unused') %>% 
 rename_with(~ str_replace(.x, "x_(.)_(.)", "\\2_\\1"))

• 输出

# A tibble: 2 × 5
      a   x_b   y_b   x_c   y_c
  <int> <int> <dbl> <int> <dbl>
1     1     1     2     1     2
2     2     2     4     2     4

我经常使用的一个肮脏的解决方法：

library(tidyverse)

prefix <- c('x_', 'y_')
suffix <- c('b', 'c')

col_order <- paste0(prefix, rep(suffix, each = length(prefix)))

df %>%
  select(a, all_of(col_order))

# A tibble: 2 x 5
      a   x_b   y_b   x_c   y_c
  <int> <int> <dbl> <int> <dbl>
1     1     1     2     1     2
2     2     2     4     2     4

这个结果符合你的要求吗？如果可能，请提供预期的输出。

library(dplyr)
df <- tibble(a = 1:2, x_b = 1:2, x_c = 1:2)
df %>%
  mutate(across(starts_with("x_"), 
                ~ .x * 2, 
                .names = "{sub('x_', 'y_', .col)}"),
         .after = c(x_b, x_c)) %>%
  relocate(starts_with("y_"), .after = starts_with("x_"))

输出：

# A tibble: 2 × 5
      a   x_b   x_c   y_b   y_c
  <int> <int> <int> <dbl> <dbl>
1     1     1     1     2     2
2     2     2     2     4     4