R 将数据框列名中的月份名称替换为完整的月份名称：

我有下面的数据框，其中每月的数字都列如图所示

Adv_Code    April_OPN   May_OPN June_OPN    July_OPN    Aug_OPN Sep_OPN Oct_OPN Nov_OPN Dec_OPN Jan_OPN Feb_OPN March_OPN
A201        0           0       0           0           0       0       0       0       0       0       0       0
A198        2           0       0           1           2       0       5       0       0       0       0       0
S1212       0           3       4           0           0       3       0       1       0       0       0       0

这些月份中有些是缩写形式，有些是完整的月份名称。 我需要把这些都转换成完整的月份名称

Adv_Code    April_OPN   May_OPN June_OPN    July_OPN    August_OPN  September_OPN   October_OPN November_OPN    December_OPN    January_OPN February_OPN    March_OPN
A201        0           0       0           0           0           0               0           0               0               0           0               0
A198        2           0       0           1           2           0               5           0               0               0           0               0
S1212       0           3       4           0           0           3               0           1               0               0           0               0

有人能帮我吗

以下是重现数据的代码：

Adv_Code <- c('A201','A198','S1212')
April_NOP <- c(0,2,0)
May_NOP <- c(0,0,3)
June_NOP <- c(0,0,4)
July_NOP <- c(0,1,0)
Aug_NOP <- c(0,2,0)
Sep_NOP <- c(0,0,3)
Oct_NOP <- c(0,5,0)
Nov_NOP <- c(0,0,1)
Dec_NOP <- c(0,0,0)
Jan_NOP <- c(0,0,0)
Feb_NOP <- c(0,0,0)
Mar_NOP <- c(0,0,0)

df <- data.frame(Adv_Code,Vintage_Dt,April_NOP,May_NOP,June_NOP,July_NOP,Aug_NOP,Sep_NOP,Oct_NOP,Nov_NOP,Dec_NOP,Jan_NOP,Feb_NOP,Mar_NOP)

---

Adv\u code从列名中提取前3个字符，
将其与
month.abb
匹配，并将其替换为相应的
month.name

names(df)[-1] <- paste(month.name[match(substr(names(df)[-1], 1, 3), 
                       month.abb)], "OPN", sep = "_")

df
#  Adv_Code April_OPN May_OPN June_OPN July_OPN August_OPN September_OPN October_OPN November_OPN December_OPN
#1     A201         0       0        0        0          0             0           0            0            0
#2     A198         2       0        0        1          2             0           5            0            0
#3    S1212         0       3        4        0          0             3           0            1            0
#  January_OPN February_OPN March_OPN
#1           0            0         0
#2           0            0         0
#3           0            0         0

从列名中提取前3个字符，
将其与
month.abb
匹配，并将其替换为相应的
month.name

names(df)[-1] <- paste(month.name[match(substr(names(df)[-1], 1, 3), 
                       month.abb)], "OPN", sep = "_")

df
#  Adv_Code April_OPN May_OPN June_OPN July_OPN August_OPN September_OPN October_OPN November_OPN December_OPN
#1     A201         0       0        0        0          0             0           0            0            0
#2     A198         2       0        0        1          2             0           5            0            0
#3    S1212         0       3        4        0          0             3           0            1            0
#  January_OPN February_OPN March_OPN
#1           0            0         0
#2           0            0         0
#3           0            0         0