Mercurial > repos > davidvanzessen > argalaxy_tools
changeset 29:1f83e14f173b draft
Uploaded
| author | davidvanzessen |
|---|---|
| date | Wed, 01 Mar 2017 10:54:30 -0500 |
| parents | 798b62942b4b |
| children | b50965edac24 |
| files | report_clonality/RScript.r |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/report_clonality/RScript.r Wed Mar 01 10:41:30 2017 -0500 +++ b/report_clonality/RScript.r Wed Mar 01 10:54:30 2017 -0500 @@ -895,7 +895,7 @@ write.table(D.REGION.reading.frame, "DReadingFrame.txt" , sep="\t",quote=F,row.names=F,col.names=T) D.REGION.reading.frame = ggplot(D.REGION.reading.frame) -D.REGION.reading.frame = D.REGION.reading.frame + geom_bar(aes( x = D.REGION.reading.frame, y = percentage, fill=Sample), stat='identity', position='dodge' ) + ggtitle("D reading frame") + xlab("Frequency") + ylab("Frame") +D.REGION.reading.frame = D.REGION.reading.frame + geom_bar(aes( x = D.REGION.reading.frame, y = percentage, fill=Sample), stat='identity', position='dodge' ) + ggtitle("D reading frame") + xlab("Frame") + ylab("Frequency") D.REGION.reading.frame = D.REGION.reading.frame + scale_fill_manual(values=sample.colors) D.REGION.reading.frame = D.REGION.reading.frame + theme(panel.background = element_rect(fill = "white", colour="black"),text = element_text(size=15, colour="black"), axis.text.x = element_text(angle = 45, hjust = 1), panel.grid.major.y = element_line(colour = "black"), panel.grid.major.x = element_blank())