如何用變量重命名列使用R？

Question

我有一個data.frame這樣的：

dsl.0 dsl.10 dsl.2 dsl.11 dsl.1 dsl.3 dsl.5 dsl.4 dsl.6 dsl.7 dsl.9 dsl.8 dsl.14 dsl.13 dsl.12 
1  0  0  0 161  1  0  0 173  1  1  0  0  0 165  3 
2  0  0  0 161 161 133  0 173  1  1  0  0  0 165  3 
3  0  0  0 161 161 133  0 173  1  1  0  0  0 165  3 
4  0  0  0 161 161 133  0 173  1  1  0  0  0 165  3 
5  0  0  0 161 161 133  0 173  1  1  0  0  0 165  3 
6  0  0  0 161 161 133  0 173  1  1  0  0  0 165  3 

列的名稱是由dsl.和N，其中N是指數。名字沒有任何意義，所以我想用真實姓名替換它們。 名稱和dsl指數之間的關係如下：

local_index local_name threshold sg_local_index sg_local_name location_id 
1    0   A40_1  84    0    A   4 
2    10   X201  40    0    A   4 
4    2   X501  40    0    A   4 
5    11   X202  84    0    A   4 
8    1   A40_2  84    0    A   4 
12    3   X502  40    0    A   4 
23    5   D1  40    3    D   4 
27    4   D50  84    3    D   4 
28    6   E50  84    4    E   4 
29    7   E1  40    4    E   4 
39    9   K60_2  84    9    K   4 
40    8   K60_1  84    9    K   4 
41    14   L0_2  84    10    L   4 
42    13   L50  84    10    L   4 
46    12   L0_1  40    10    L   4 

local_index由dsl.N在第一data.frame表示;我想將第一個data.frame中的列名從dsl.N更改爲真實姓名，例如A40_1,X202。是否有可能處理這樣的列的名稱？

Answer 1

嘗試（如果d1和d2是兩個數據集）

names(d1) <- d2$local_name[match(as.numeric(gsub(".*\\.", "",colnames(d1))), 
                d2$local_index)] 


head(d1,2) 
# A40_1 X201 X501 X202 A40_2 X502 D1 D50 E50 E1 K60_2 K60_1 L0_2 L50 L0_1 
#1  0 0 0 161  1 0 0 173 1 1  0  0 0 165 3 
#2  0 0 0 161 161 133 0 173 1 1  0  0 0 165 3