Mercurial > repos > davidvanzessen > phenotype_gene_relations
changeset 19:a036b66ec94e draft
Uploaded
| author | davidvanzessen |
|---|---|
| date | Tue, 13 Oct 2015 07:10:03 -0400 |
| parents | 03481adcce8d |
| children | c28f4a0ae062 |
| files | phenotype_gene_relations_plot.r |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/phenotype_gene_relations_plot.r Mon Oct 12 06:43:14 2015 -0400 +++ b/phenotype_gene_relations_plot.r Tue Oct 13 07:10:03 2015 -0400 @@ -87,7 +87,7 @@ dat.sub4.freq = data.frame(table(as.character(dat.sub4$diseaseId))) names(dat.sub4.freq) = c("diseaseId", "diseaseId.order") dat.sub4 = merge(dat.sub4, dat.sub4.freq, by="diseaseId") -p = ggplot(dat.sub4, aes(reorder(diseaseId, -diseaseId.order), OMT.5.name)) + geom_tile(aes(fill = value), colour = "white") + scale_fill_gradient(low = "red",high = "red") +p = ggplot(dat.sub4, aes(reorder(diseaseId, diseaseId.order), 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), legend.position="none") @@ -110,7 +110,7 @@ disease.gene.url = dat[OMTs & disease.in.omt & inheritance.filter ,c("diseaseId", "gene.symbol", "url")] disease.gene.url = disease.gene.url[!duplicated(disease.gene.url),] disease.gene.url = merge(disease.gene.url, dat.sub4.freq, by.x="diseaseId", by.y="diseaseId") -disease.gene.url = disease.gene.url[order(-disease.gene.url$diseaseId.order),] +disease.gene.url = disease.gene.url[order(disease.gene.url$diseaseId.order),] disease.gene.url = disease.gene.url[,c("diseaseId", "gene.symbol", "url")] names(disease.gene.url) = c("Disease ID","Gene Symbol","URL")