Mercurial > repos > davidvanzessen > mutation_analysis
changeset 57:cb66d6dd1e66 draft
Uploaded
author | davidvanzessen |
---|---|
date | Tue, 01 Mar 2016 05:16:07 -0500 |
parents | a4317b006d70 |
children | 8bb4d6009e08 |
files | aa_histogram.r |
diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/aa_histogram.r Tue Mar 01 05:06:47 2016 -0500 +++ b/aa_histogram.r Tue Mar 01 05:16:07 2016 -0500 @@ -37,6 +37,9 @@ m = m + annotate("segment", x = 55.5, y = -0.07, xend=65.5, yend=-0.07, colour="darkblue", size=1) + annotate("text", x = 60.5, y = -0.15, label="CDR2") m = m + annotate("segment", x = 65.5, y = -0.05, xend=104.5, yend=-0.05, colour="darkgreen", size=1) + annotate("text", x = 85, y = -0.1, label="FR3") m = m + expand_limits(y=c(-0.1,1)) + xlab("AA position") + ylab("Frequency") + ggtitle("AA mutation frequency") + +print("---------------- write/print ----------------") + write.table(dat_dt, paste(dirname(outfile), "/aa_histogram.txt", sep=""), sep="\t",quote=F,row.names=F,col.names=T) png(filename=outfile, width=1280, height=720)