Title: | A tool set for 3D Trans-Omic network visualization with Cytoscape |
---|---|
Description: | transomics2cytoscape generates a file for 3D transomics visualization by providing input that specifies the IDs of multiple KEGG pathway layers, their corresponding Z-axis heights, and an input that represents the edges between the pathway layers. The edges are used, for example, to describe the relationships between kinase on a pathway and enzyme on another pathway. This package automates creation of a transomics network as shown in the figure in Yugi.2014 (https://doi.org/10.1016/j.celrep.2014.07.021) using Cytoscape automation (https://doi.org/10.1186/s13059-019-1758-4). |
Authors: | Kozo Nishida [aut, cre] , Katsuyuki Yugi [aut] |
Maintainer: | Kozo Nishida <[email protected]> |
License: | Artistic-2.0 |
Version: | 1.17.0 |
Built: | 2024-10-31 06:22:19 UTC |
Source: | https://github.com/bioc/transomics2cytoscape |
Import multiple KEGG pathways and integrate the pathways into Cy3D renderer
create3Dnetwork(networkDataDir, networkLayers, stylexml)
create3Dnetwork(networkDataDir, networkLayers, stylexml)
networkDataDir |
Path of a directory to put the network files of the second column of networkLayers TSV. |
networkLayers |
Path of a TSV file with the 4 columns (layer index, the network file name in networkDataDir, Z-height of the network, whether to interact not only with the nodes of each network layer but also with the edges). |
stylexml |
Path of a XML file for Cytoscape style |
A SUID of the 3D network.
Kozo Nishida
## Not run: networkDataDir <- tempfile(); dir.create(networkDataDir) networkLayers <- system.file("extdata/usecase1", "yugi2014.tsv", package = "transomics2cytoscape") stylexml <- system.file("extdata/usecase1", "yugi2014.xml", package = "transomics2cytoscape") suid <- create3Dnetwork(networkDataDir, networkLayers, stylexml) ## End(Not run)
## Not run: networkDataDir <- tempfile(); dir.create(networkDataDir) networkLayers <- system.file("extdata/usecase1", "yugi2014.tsv", package = "transomics2cytoscape") stylexml <- system.file("extdata/usecase1", "yugi2014.xml", package = "transomics2cytoscape") suid <- create3Dnetwork(networkDataDir, networkLayers, stylexml) ## End(Not run)
Create Trans-Omic edges between layers of the network
createTransomicEdges(suid, transomicEdges)
createTransomicEdges(suid, transomicEdges)
suid |
A SUID of Cytoscape network |
transomicEdges |
Path of a TSV file with the 7 columns (layer index of the source node, the column name for which you want to find the attribute value of the source node, the attribute value of the source node should have, layer index of a target node name or KEGG object ID that the source node should have, layer index of the target node, the column name for which you want to find the attribute value of the target node, the attribute value of the target node should have, name or KEGG object ID that the target node should have, interaction type). |
A SUID of the 3D network.
Kozo Nishida
## Not run: layer1to2 <- system.file("extdata/usecase1", "k2e.tsv", package = "transomics2cytoscape") suid <- createTransomicEdges(suid, layer1to2) ## End(Not run)
## Not run: layer1to2 <- system.file("extdata/usecase1", "k2e.tsv", package = "transomics2cytoscape") suid <- createTransomicEdges(suid, layer1to2) ## End(Not run)
Convert a EC number column to a KEGG reaction ID column
ec2reaction(tsvFilePath, columnIndex, outputFilename)
ec2reaction(tsvFilePath, columnIndex, outputFilename)
tsvFilePath |
Path of a TSV file with column of EC number |
columnIndex |
Index number of the column with the EC number you want to convert |
outputFilename |
The output file name |
None
Kozo Nishida
## Not run: layer3to2 <- system.file("extdata/usecase1", "allosteric_ecnumber.tsv", package = "transomics2cytoscape") ec2reaction(layer3to2, 6, "allosteric_ec2rea.tsv") ## End(Not run)
## Not run: layer3to2 <- system.file("extdata/usecase1", "allosteric_ecnumber.tsv", package = "transomics2cytoscape") ec2reaction(layer3to2, 6, "allosteric_ec2rea.tsv") ## End(Not run)