在R中，如何根据列的值从其他列的列标题创建新列

library(tidyverse)

# 创建一个示例数据框
df <- data.frame(ID = c(1, 2, 3),
                 A_1 = c(10, 20, 30),
                 A_2 = c(40, 50, 60),
                 B_1 = c(70, 80, 90),
                 B_2 = c(100, 110, 120))

# 使用pivot_longer()函数将列A_1和A_2合并为一列，并根据列的值创建新的列
df_new <- df %>%
  pivot_longer(cols = starts_with("A"), 
               names_to = "New_Column", 
               values_to = "New_Value")

# 输出结果
print(df_new)