Code:
library(org.Hs.eg.db)
# Conversion configuration
conversion <- c(from = "ENTREZID", to = "SYMBOL") # ID Types for conversion
gene_id <- "1" # NCBI Gene ID to convert
# Perform conversion
result <- mapIds(
org.Hs.eg.db,
keys = gene_id,
column = conversion["to"],
keytype = conversion["from"],
multiVals = "first"
)
# Display result
if (is.na(result)) {
cat("No conversion found for ID:", gene_id)
} else {
cat("Converted ID:", result[[1]])
}
Output:
Converted ID: A1BG
Alternatively:
library(org.Hs.eg.db)
library(rlang)
# Convert NCBI Gene ID to Gene Symbol
cat("Converted ID:", mapIds(org.Hs.eg.db, "1", "SYMBOL", "ENTREZID", multiVals = "first") %||% "Not found")
Output:
Converted ID: A1BG