请问怎么以r语言match函数实现这个基因名和id的替换呢，前表为x,后表为y

x1 <- x[c(match(colnames(y),x$file_name)),]

colnames(y) <- x1$ID