0
library(biomaRt)
snp_mart = useMart("ENSEMBL_MART_SNP", dataset="hsapiens_snp")
snp_attributes = c("refsnp_id", "chr_name", "chrom_start",
"associated_gene", "ensembl_gene_stable_id", "minor_allele_freq")
getENSG <- function(rs, mart = snp_mart) {
results <- getBM(attributes = snp_attributes,
filters = "snp_filter", values = rs, mart = mart)
return(results)
}
getENSG("rs144864312")
refsnp_id chr_name chrom_start associated_gene ensembl_gene_stable_id
1 rs144864312 8 20254959 NA ENSG00000061337
minor_allele_freq
1 0.000399361
下面的代碼我沒有背景,生物學,請原諒我,如果這是一個明顯的問題。我被告知rs144864312應該匹配基因名稱「LZTS1」。我上面的代碼主要來自互聯網。我的問題是我從哪裏提取基因名稱?我得到listAttributes(snp_mart)給出了所有可能的輸出列表,但我沒有看到任何給我的上述「基因名稱」。我從哪裏提取這個基因名稱使用biomart(並給出rs號)?先謝謝你。
PS:我需要爲500個條目(而不僅僅是1)這樣做。因此,爲什麼我創建了一個如上所述的簡單函數來提取基因名稱。