changeset 9:98a908a5cd2f draft

Uploaded
author davidvanzessen
date Thu, 03 Sep 2015 10:47:59 -0400
parents 38f0e68d1bac
children 768df9ba57e8
files OMT_coding.txt phenotype_gene_relations_plot.r phenotype_gene_relations_plot.sh phenotype_gene_relations_plot.xml
diffstat 3 files changed, 284 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/phenotype_gene_relations_plot.r	Thu Sep 03 10:47:59 2015 -0400
@@ -0,0 +1,94 @@
+library(reshape2)
+library(ggplot2)
+
+args <- commandArgs(trailingOnly = TRUE)
+
+input=args[1]
+omt1=strsplit(args[2], ",")[[1]]
+omt2=strsplit(args[3], ",")[[1]]
+omt3=strsplit(args[4], ",")[[1]]
+omt4=strsplit(args[5], ",")[[1]]
+omt5=strsplit(args[6], ",")[[1]]
+inheritance=strsplit(args[7], ",")[[1]]
+outdir=args[8]
+
+dat =  read.table(input, header=T, sep="\t", comment.char="#", quote = "")
+
+setwd(outdir)
+  
+dat$disease.gene = paste(dat$diseaseId, dat$gene.symbol)
+
+OMTs = dat$OMT.1 %in% omt1 | dat$OMT.2 %in% omt2 | dat$OMT.3 %in% omt3 | dat$OMT.4 %in% omt4 | dat$OMT.5 %in% omt5
+
+dat.sub = dat[OMTs,]
+
+selectA = dcast(dat.sub, OMT.5~disease.gene, length, value.var="disease.gene")
+
+selectA[selectA > 0] = 1
+
+selectA = selectA[,colSums(selectA) == nrow(selectA)]
+
+disease.in.omt = dat$disease.gene %in% names(selectA)
+inheritance.filter = dat$inheritance %in% inheritance
+
+dat.sub2 = dat[OMTs & disease.in.omt & inheritance.filter ,c("disease.gene", "GROUP.CODE", "ratio")]
+
+dat.sub2 = dat.sub2[!duplicated(dat.sub2),]
+
+p = ggplot(dat.sub2, aes(disease.gene, GROUP.CODE)) + geom_tile(aes(fill = ratio), colour = "white") + scale_fill_gradient(low = "white",high = "red")
+
+p = p + theme(axis.text.x = element_text(angle = 45, hjust = 1))
+
+png("plot1.png")
+print(p)
+dev.off()
+
+dat.sub3 = dat[OMTs & disease.in.omt & inheritance.filter, c("diseaseId", "HPO.term.name")]
+dat.sub3$value = 1
+p = ggplot(dat.sub3, aes(diseaseId, HPO.term.name)) + geom_tile(aes(fill = value), colour = "white") + scale_fill_gradient(low = "red",high = "red")
+
+p = p + theme(axis.text.x = element_text(angle = 45, hjust = 1))
+
+png("plot2.png")
+print(p)
+dev.off()
+
+dat.sub4 = dat[disease.in.omt & dat$diseaseId %in% dat.sub3$diseaseId, c("diseaseId", "OMT.5.name")]
+dat.sub4$value = 1
+p = ggplot(dat.sub4, aes(diseaseId, OMT.5.name)) + geom_tile(aes(fill = value), colour = "white") + scale_fill_gradient(low = "red",high = "red")
+
+p = p + theme(axis.text.x = element_text(angle = 45, hjust = 1))
+
+png("plot3.png", width=length(unique(dat.sub3$diseaseId)) * 30 + 200)
+print(p)
+dev.off()
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/phenotype_gene_relations_plot.sh	Thu Sep 03 10:47:59 2015 -0400
@@ -0,0 +1,33 @@
+set -e
+
+dir="$(cd "$(dirname "$0")" && pwd)"
+
+input="$1"
+omt1="$2"
+omt2="$3"
+omt3="$4"
+omt4="$5"
+omt5="$6"
+inheritance="$7"
+outdir="$8"
+html="$9"
+
+echo "input: ${input}"
+echo "omt1: ${omt1}"
+echo "omt2: ${omt2}"
+echo "omt3: ${omt3}"
+echo "omt4: ${omt4}"
+echo "omt5: ${omt5}"
+echo "inheritance: ${inheritance}"
+echo "html: ${html}"
+echo "outdir: ${outdir}"
+
+mkdir "$outdir"
+
+
+
+Rscript --verbose $dir/phenotype_gene_relations_plot.r "$input" "$omt1" "$omt2" "$omt3" "$omt4" "$omt5" "$inheritance" "$outdir" 2>&1
+
+echo "<img src='plot1.png' /><br />" >> "$html"
+echo "<img src='plot2.png' /><br />" >> "$html"
+echo "<img src='plot3.png' /><br />" >> "$html"
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/phenotype_gene_relations_plot.xml	Thu Sep 03 10:47:59 2015 -0400
@@ -0,0 +1,157 @@
+<tool id="phenotype_gene_relations_plot" name="Phenotype Gene Relations plotting" version="1.0">
+	<description> </description>
+	<command interpreter="bash">
+		phenotype_gene_relations_plot.sh $input "$omt1" "$omt2" "$omt3" "$omt4" "$omt5" "$inheritance" $output.files_path $output
+	</command>
+	<inputs>
+        <param name="input" format="tabular" type="data" label="Input" />
+        <param name="omt1" format="tabular" type="select" multiple="true" label="OMT.1">
+					<option value="0">0 N/C</option>
+					<option value="1">1 1. Malformation</option>
+					<option value="2">2 2. Deformation</option>
+					<option value="3">3 3. Dysplasia</option>
+				</param>
+				<param name="omt2" format="tabular" type="select" multiple="true" label="OMT.2">
+					<option value="0">0 N/C</option>
+					<option value="11">11 1A. Entire limb malformations</option>
+					<option value="12">12 1B. Handplate malformations</option>
+					<option value="21">21 Constriction ring sequence</option>
+					<option value="22">22 Trigger digits</option>
+					<option value="31">31 3A. Hypertrophy</option>
+					<option value="32">32 3B. Tumorous conditions</option>
+				</param>
+				<param name="omt3" format="tabular" type="select" multiple="true" label="OMT.3">
+					<option value="0">0 N/C</option>
+						<option value="110">110 1A. NOS entire limb malformation</option>
+						<option value="111">111 1A1. Proximal-distal axis (entire limb)</option>
+						<option value="112">112 1A2. Radio-ulnar axis (entire limb)</option>
+						<option value="113">113 1A4. Unspecified axis (entire limb)</option>
+						<option value="114">114 1A3. Dorso-ventral axis (entire limb)</option>
+						<option value="120">120 1B. NOS handplate malformation</option>
+						<option value="121">121 1B1. Proximal-distal axis (hand)</option>
+						<option value="122">122 1B2. Radio-ulnar axis (hand)</option>
+						<option value="123">123 1B3. Dorso-ventral axis (hand)</option>
+						<option value="124">124 1B4. Unspecified axis (hand)</option>
+						<option value="210">210 Constriction ring sequence</option>
+						<option value="220">220 Trigger digits</option>
+						<option value="311">311 3A1. Whole limb hypertrophy</option>
+						<option value="312">312 3A2. Partial Limb hypertrophy</option>
+						<option value="321">321 3B1. Vascular tumors</option>
+						<option value="324">324 3B4. Skeletal tumors</option>
+				</param>
+				<param name="omt4" format="tabular" type="select" multiple="true" label="OMT.4">
+					<option value="0">0 N/C</option>
+					<option value="1100">1100 1A. NOS malformation (entire limb)</option>
+					<option value="1110">1110 1A1. NOS prox-distal axis (entire limb)</option>
+					<option value="1111">1111 1A1i. Brachymelia</option>
+					<option value="1112">1112 1A1ii. Symbrachydactyly</option>
+					<option value="1113">1113 1A1iii. Transverse deficiency</option>
+					<option value="1114">1114 1A1iv. Intersegmental deficiency</option>
+					<option value="1115">1115 1A1v. Limb duplication</option>
+					<option value="1120">1120 1A2. NOS rad-uln axis (entire limb)</option>
+					<option value="1121">1121 1A2i. Radial longitudinal deficiency</option>
+					<option value="1122">1122 1A2ii. Ulnar longitudinal deficiency</option>
+					<option value="1124">1124 1A2iv. Radioulnar synostosis</option>
+					<option value="1125">1125 1A2v. Congenital radial head dislocation</option>
+					<option value="1126">1126 1A2vi. Humeroradial synostosis</option>
+					<option value="1127">1127 1A2vii. Madelung deformity</option>
+					<option value="1132">1132 1A3ii. Ventral dimelia </option>
+					<option value="1141">1141 1A4i. Abberant shoulder (incl Sprengel deformity)</option>
+					<option value="1142">1142 1A4ii. Arthrogryposis</option>
+					<option value="1200">1200 1B. NOS malformation (hand)</option>
+					<option value="1211">1211 1B1i. Brachydactyly</option>
+					<option value="1213">1213 1B1iii. Transverse deficiency (no arm involvement)</option>
+					<option value="1220">1220 1B2. NOS rad-uln axis malformation (hand)</option>
+					<option value="1221">1221 1B2i. Radial deficiency of the hand</option>
+					<option value="1222">1222 1B2ii. Ulnar deficiency of the hand</option>
+					<option value="1223">1223 1B2iii. Radial polydactyly</option>
+					<option value="1224">1224 1B2iv. Triphalangeal thumb</option>
+					<option value="1225">1225 1B2v. Ulnar dimelia</option>
+					<option value="1232">1232 1B3ii. Ventral dimelia (incl hypoplastic/aplastic nail)</option>
+					<option value="1241">1241 1B4i. Softi tissue malformations</option>
+					<option value="1242">1242 1B4ii. Sekeltal deficiencies</option>
+					<option value="1243">1243 1B4iii. Complex anomalies of unspecified axis (hand)</option>
+					<option value="2100">2100 Constriction ring sequence</option>
+					<option value="2200">2200 Trigger digits</option>
+					<option value="3111">3111 3A1i. Hemihypertrophy</option>
+					<option value="3121">3121 3A2i. Macrodactyly</option>
+					<option value="3211">3211 3B1i. Hemangioma</option>
+					<option value="3212">3212 3B1ii. Vascular malformation</option>
+					<option value="3241">3241 3B4i. Osteochondromatosis</option>
+					<option value="3242">3242 3B4ii. Echondromatosis</option>
+					<option value="3244">3244 3B4iv. Epiphyseal abnormalities</option>
+				</param>
+				<param name="omt5" format="tabular" type="select" multiple="true" label="OMT.5">
+					<option value="0">0 N/C</option>
+						<option value="11000">11000 1A. NOS entire limb malformation</option>
+						<option value="11100">11100 1A1. NOS proximal-distal axis malformation</option>
+						<option value="11110">11110 1A1i. Brachymelia</option>
+						<option value="11121">11121 1A1iia. Poland Syndrome</option>
+						<option value="11130">11130 1A1iii. Transverse deficiency</option>
+						<option value="11140">11140 1A1iv. Intersegmental deficiency</option>
+						<option value="11150">11150 1A1v. Limb duplication</option>
+						<option value="11200">11200 1A2. NOS rad-uln axis (entire limb)</option>
+						<option value="11210">11210 1A2i. Radial longitudinal deficiency</option>
+						<option value="11220">11220 1A2ii. Ulnar longitudinal deficiency</option>
+						<option value="11240">11240 1A2iv. Radioulnar synostosis</option>
+						<option value="11250">11250 1A2v. Congenital radial head dislocation</option>
+						<option value="11260">11260 1A2vi. Humeroradial synostosis</option>
+						<option value="11270">11270 1A2vii. Madelung deformity</option>
+						<option value="11320">11320 1A3ii. Ventral dimelia </option>
+						<option value="11411">11411 1A4ia. Sprengel deformity</option>
+						<option value="11412">11412 1A4ib. Abnormal shoulder muscles</option>
+						<option value="11413">11413 1A4ic. NOS shoulder malformation</option>
+						<option value="11420">11420 1A4ii. Arthrogryposis</option>
+						<option value="12000">12000 1B. NOS handplate malformation</option>
+						<option value="12110">12110 1B1i. Brachydactyly</option>
+						<option value="12130">12130 1B1iii. Transverse deficiency (no arm involvement)</option>
+						<option value="12200">12200 1B2. NOS rad-uln axis malformation (hand)</option>
+						<option value="12210">12210 1B2i. Radial deficiency of the hand</option>
+						<option value="12220">12220 1B2ii. Ulnar deficiency of the hand</option>
+						<option value="12230">12230 1B2iii. Radial polydactyly</option>
+						<option value="12240">12240 1B2iv. Triphalangeal thumb</option>
+						<option value="12250">12250 1B2v. Ulnar dimelia</option>
+						<option value="12320">12320 1B3ii. Ventral dimelia (incl hypoplastic/aplastic nail)</option>
+						<option value="12411">12411 1B4ia. Syndactyly</option>
+						<option value="12412">12412 1B4ib. Camptodactyly</option>
+						<option value="12413">12413 1B4ic. Thumb in palm deformity</option>
+						<option value="12414">12414 1B4id. Distal arthrogryposis</option>
+						<option value="12421">12421 1B4iia. Clinodactyly</option>
+						<option value="12423">12423 1B4iib. Synostosis/symphalangism</option>
+						<option value="12431">12431 1B4iiia. Complex syndactyly</option>
+						<option value="12432">12432 1B4iiib. Synpolydactyly</option>
+						<option value="12434">12434 1B4iiid. Apert Hand</option>
+						<option value="21000">21000 Constriction ring sequence</option>
+						<option value="22000">22000 Trigger digits</option>
+						<option value="31110">31110 3A1i. Hemihypertrophy</option>
+						<option value="31210">31210 3A2i. Macrodactyly</option>
+						<option value="32110">32110 3B1i. Hemangioma</option>
+						<option value="32120">32120 3B1ii. Vascular malformation</option>
+						<option value="32410">32410 3B4i. Osteochondromatosis</option>
+						<option value="32420">32420 3B4ii. Echondromatosis</option>
+						<option value="32440">32440 3B4iv. Epiphyseal abnormalities</option>
+				</param>
+        <param name="inheritance" format="tabular" type="select" multiple="true" label="Inheritance">
+					<option value="unique.final.inheritance.">unique.final.inheritance.</option>
+					<option value="No inheritance pattern available">No inheritance pattern available</option>
+					<option value="Autosomal dominant inheritance">Autosomal dominant inheritance</option>
+					<option value="X-linked dominant inheritance">X-linked dominant inheritance</option>
+					<option value="Autosomal recessive inheritance">Autosomal recessive inheritance</option>
+					<option value="X-linked recessive inheritance">X-linked recessive inheritance</option>
+					<option value="X-linked inheritance">X-linked inheritance</option>
+					<option value="Somatic mosaicism">Somatic mosaicism</option>
+					<option value="Mitochondrial inheritance">Mitochondrial inheritance</option>
+					<option value="Somatic mutation">Somatic mutation</option>
+					<option value="Autosomal dominant contiguous gene syndrome">Autosomal dominant contiguous gene syndrome</option>
+					<option value="Sex-limited autosomal dominant">Sex-limited autosomal dominant</option>
+				</param>
+	</inputs>
+	<outputs>
+		<data format="html" name="output" label="Phenotype Gene Rel plotting on: ${input.name} "/>
+	</outputs>
+	<help>
+stuff, words, things
+
+	</help>
+
+</tool>