Mercurial > repos > artbio > small_rna_maps

comparison small_rna_maps.r @ 21:b585cb347a26 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/small_rna_maps commit bbcc21562b752860dc28945ccc69ff1ef29dec5b
author artbio
date Sun, 09 Dec 2018 13:30:54 -0500
parents cd75c72e1d75
children fe1a9cfaf5c3
comparison
equal deleted inserted replaced
20:de7fbcb1348c 21:b585cb347a26
70 if (global == "yes") { 70 if (global == "yes") {
71 bc <- barchart(Counts~as.factor(Size)|factor(Dataset, levels=unique(Dataset)), 71 bc <- barchart(Counts~as.factor(Size)|factor(Dataset, levels=unique(Dataset)),
72 data = df, origin = 0, 72 data = df, origin = 0,
73 horizontal=FALSE, 73 horizontal=FALSE,
74 col=c("darkblue"), 74 col=c("darkblue"),
75 scales=list(y=list(tick.number=4, rot=90, relation="free", cex=0.5, alternating=T), x=list(rot=0, cex=0.6, tck=0.5, alternating=c(3,3))), 75 scales=list(y=list(tick.number=4, rot=90, relation="same", cex=0.5, alternating=T), x=list(rot=0, cex=0.6, tck=0.5, alternating=c(3,3))),
76 xlab=list(label=bottom_first_method[[args$first_plot_method]], cex=.85), 76 xlab=list(label=bottom_first_method[[args$first_plot_method]], cex=.85),
77 ylab=list(label=legend_first_method[[args$first_plot_method]], cex=.85), 77 ylab=list(label=legend_first_method[[args$first_plot_method]], cex=.85),
78 main=title_first_method[[args$first_plot_method]], 78 main=title_first_method[[args$first_plot_method]],
79 layout = c(2, 6), newpage=T, 79 layout = c(2, 6), newpage=T,
80 as.table=TRUE, 80 as.table=TRUE,
87 data = df, origin = 0, 87 data = df, origin = 0,
88 horizontal=FALSE, 88 horizontal=FALSE,
89 group=Polarity, 89 group=Polarity,
90 stack=TRUE, 90 stack=TRUE,
91 col=c('red', 'blue'), 91 col=c('red', 'blue'),
92 scales=list(y=list(tick.number=4, rot=90, relation="free", cex=0.5, alternating=T), x=list(rot=0, cex=0.6, tck=0.5, alternating=c(3,3))), 92 scales=list(y=list(tick.number=4, rot=90, relation="same", cex=0.5, alternating=T), x=list(rot=0, cex=0.6, tck=0.5, alternating=c(3,3))),
93 xlab=list(label=bottom_first_method[[args$first_plot_method]], cex=.85), 93 xlab=list(label=bottom_first_method[[args$first_plot_method]], cex=.85),
94 ylab=list(label=legend_first_method[[args$first_plot_method]], cex=.85), 94 ylab=list(label=legend_first_method[[args$first_plot_method]], cex=.85),
95 main=title_first_method[[args$first_plot_method]], 95 main=title_first_method[[args$first_plot_method]],
96 layout = c(2, 6), newpage=T, 96 layout = c(2, 6), newpage=T,
97 as.table=TRUE, 97 as.table=TRUE,