Rのテーブルファイルを参照して列名を置き換えます。

Question

テーブルを参照して列名を置き換えます。

以下は私の質問です。

data <- read.table(textConnection(" 
    a b c d e 
row1 1 2 3 4 5 
"), header = TRUE) 


Newtitle <- read.table(textConnection(" 
id id2 
a kitty 
d oren 
g dyron 
"), header = TRUE) 

データの列名を持つnewTitleの$のIDが一致した場合、

はその後、私は、newTitleの$ ID2により、データの列名を置き換えるそうでない場合は、単に元の列名を維持したいです。

kitty b c oren e 
row1 1 2 3 4 5 

お願いします。

Answer 1

要因と文字の違いに注意する必要があります。

Newtitle$id <- as.character(Newtitle$id) 
Newtitle$id2 <- as.character(Newtitle$id2) 
rownames(Newtitle) <- Newtitle$id 
replaced <- names(data) %in% Newtitle$id 
names(data)[replaced] <- Newtitle[names(data)[replaced], "id2"]