Использование сквозной функции в R

У меня есть база данных, похожая на эту:

data <- tibble(X = c(1,2,3,4), X_2 = c(2,3,4,5),
               Y = c(3,4,5,6), Y_2 = c(4,5,6,7))

Я хотел бы изменить X и Y, чтобы я мог суммировать X с X_2 и Y с Y_2, генерируя новые переменные с именами X_3 и Y_3.

Я пробовал что-то вроде этого:

data %>% 
  mutate(across(c(X,Y), ~ . + ._2 , .names = "{col}_3")) %>% 
  print()

или вот так:

data %>% 
  mutate(across(c(X,Y), ~ . + paste0(.,"_2") , .names = "{col}_3")) %>% 
  print()

Очевидно, ни один из них не работает, поскольку я не знаю, как определить вторую переменную, имеющую то же имя, что и имя, которое я использую в сквозной функции (но оканчивающееся суффиксом).

Может ли кто-нибудь помочь мне с этим?

Заранее спасибо!