R Pivot_Long()数据集，方法是将头S字符串拆分成多列

我的数据集包含多个场景(S1、S2、S3)的值，这些场景跨越多个年头，链接变量称为link_col.

link_col <- c("A0001", "A0002", "A0003")
S1_ABC_2019 <- c(1000, 300, 5000)
S1_ABC_2020 <- c(1000, 300, 5000)
S1_ABC_2021 <- c(1000, 300, 5000)
S2_ABC_2012 <- c(800, 600, 2000)
S2_ABC_2013 <- c(800, 600, 2000)
S2_ABC_2019 <- c(800, 600, 2000)
S3_ABC_2013 <- c(600, 100, 900)
S3_ABC_2020 <- c(600, 100, 900)
S3_ABC_2021 <- c(600, 100, 900)

data <- data.frame(link_col, S1_ABC_2019, S1_ABC_2020, S1_ABC_2021, S2_ABC_2012,
                   S2_ABC_2013, S2_ABC_2019, S3_ABC_2013, S3_ABC_2020, S3_ABC_2021)

使用dplyr希望通过将这些宽列压缩为方案、年份和值的每一列来对此数据集进行pivot_longer()，以在gggraph中生成数字.这就是我想要的:

    link_col Scenario Year Value
1      A0001       S1 2019  1000
2      A0002       S1 2020   300
3      A0003       S1 2021  5000
4      A0001       S2 2012  1000
5      A0002       S2 2013   300
6      A0003       S2 2019  5000
7      A0001       S3 2013  1000
8      A0002       S3 2020   300
9      A0003       S3 2021  5000
10     A0001       S1 2019   800
11     A0002       S1 2020   600
12     A0003       S2 2013  2000
13     A0001       S2 2019   800
14     A0002       S3 2015   600
15     A0003       S3 2021  2000
16     A0001       S1 2019   800
17     A0002       S1 2020   600
18     A0003       S1 2021  2000
19     A0001       S2 2012   600
20     A0002       S2 2013   100
21     A0003       S2 2019   900
22     A0001       S3 2013   600
23     A0002       S3 2020   100
24     A0003       S3 2021   900
25     A0001       S1 2019   600
26     A0002       S1 2020   100
27     A0003       S2 2013   900
28     A0001       S2 2019  1100
29     A0002       S3 2015   400
30     A0003       S3 2021  4800
31     A0001       S1 2019  1100
32     A0002       S1 2020   400
33     A0003       S1 2021  4800
34     A0001       S2 2012   900
35     A0002       S2 2013   600
36     A0003       S2 2019  2100
37     A0001       S3 2013   900
38     A0002       S3 2020   600
39     A0003       S3 2021  2100
40     A0001       S1 2019   500
41     A0002       S1 2020   200
42     A0003       S2 2013   800
43     A0001       S2 2019   500
44     A0002       S3 2015   200
45     A0003       S3 2021   800

我试过了，但它不起作用，我真的不明白names_pattern参数的用法.如有任何帮助，我们将不胜感激！

data2 <- pivot_longer(data, 
                      cols = link_col, starts_with("S"),
                      names_to = c("Scenario", "Year"),
                      names_pattern = "S(\\d+)_ABC_2(\\d+)",
                      values_to = Value)