有20000多个ENSBTAG开头的基因ID excel表，表的名称为：combined_gene_count_matrix.csv 如何将表中所有的基因ID对应到Bos taurus 相应的基因名称？ 请给出具体的R代码

为了将名为"combined_gene_count_matrix.csv"的Excel表格中以ENSBTAG开头的基因ID转换为Bos taurus（牛）的基因名称，你可以使用`biomaRt`包在R语言中连接Ensembl数据库并获取相应的映射。以下是具体步骤：

首先，确保已经安装了`biomaRt`和`data.table`库，如果没有，可以使用以下命令安装：

install.packages("biomaRt")
install.packages("data.table")

然后加载需要的库，并设置Ensembl生物信息学资源（ensembl.biomart）：

library(biomaRt)
library(data.table)

# 设置Ensembl生物信息学资源
mart <- useMart("ensembl", dataset = "bos_taurus_95")

接下来，读取Excel文件并创建一个数据表，我们将使用`data.table`处理：

# 读取Excel文件
gene_data <- fread("combined_gene_count_matrix.csv")

# 验证是否所有基因ID都是ENSBTAG格式
if (all(gene_data$Gene_ID %like% "^ENSBTAG*")) {
  # 使用bimart查找对应的基因名称
  gene_mapping <- getBM(attributes = c("ensembl_gene_id", "external_gene_name"), filters = "ensembl_gene_id", values = gene_data$Gene_ID, mart = mart)
  
  # 将结果添加到原始数据表中
  gene_data[, Gene_Name := gene_mapping$external_gene_name]
} else {
  warning("并非所有基因ID都是ENSBTAG格式，请检查文件内容。")
}

最后，如果你想要清理一下结果，只保留必要的列，可以这样做：

# 可选：仅保留必要的列
result <- gene_data[, .(Gene_ID, Gene_Name), with = FALSE]

# 如果需要保存结果到新的CSV文件
write.csv(result, "mapped_gene_names.csv", row.names = FALSE)