Accio / KEGGgraph

The KEGGgraph package to parse KEGG pathways in R into graph objects
13 stars 3 forks source link

Missing Reactions and Enzymes #4

Open Skourtis opened 4 years ago

Skourtis commented 4 years ago

Hi,

I'm using the package to retrieve the enzymes and their reactions but the output from the package is missing reactions and enzymes found on the website. For example in the https://www.genome.jp/kegg-bin/show_pathway?hsa00670 pathway, the MTHFD1 (1.5.1.5) protein faciliates a reaction which is missing from the reactions retrieved from the KEGGgraph. Why is this?

Thank you, Savvas

library(KEGGgraph)

tmp <- tempfile() genes_reactions <- data.frame(Gene_id = NULL, Reaction = NULL, pathway = NULL, stringsAsFactors = F) compound_reactions <- data.frame(Reaction = NULL, Substrate = NULL, Product = NULL, Direction = NULL, pathway = NULL, stringsAsFactors = F)

j<- "hsa00670" retrieveKGML(j, organism="hsa", destfile=tmp, method="auto", quiet=TRUE) testing <- KEGGgraph::parseKGML2Graph(tmp)

test_folate <- KEGGgraph::parseKGML(tmp)

for (i in 1:length(testing@nodeData@defaults[["KEGGNode"]][["nodes"]])){
    df <- data.frame(Gene_id = testing@nodeData@defaults[["KEGGNode"]][["nodes"]][[i]]@entryID,
                     Reaction = testing@nodeData@defaults[["KEGGNode"]][["nodes"]][[i]]@reaction,
                     pathway = j,
                     stringsAsFactors = FALSE)
    genes_reactions <- rbind(genes_reactions,df)

}

for (i in 1:length(test_folate@reactions)){
    df <- data.frame(Reaction = test_folate@reactions[[i]]@name,
                     Substrate = test_folate@reactions[[i]]@substrateName,
                     Product = test_folate@reactions[[i]]@productName,
                     Direction = test_folate@reactions[[i]]@type,
                     pathway = j,
                     stringsAsFactors = FALSE)
    compound_reactions <- rbind(compound_reactions,df)

}
EulleSA commented 3 years ago

I have the same problem