Mercurial > repos > brasset_jensen > srnapipe

comparison bin/Rcall.pm @ 15:6d9f127da28f draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author brasset_jensen
date Fri, 26 Jan 2018 08:08:42 -0500
parents 1df6aaac800e
children 4bc00caa60b4
comparison
equal deleted inserted replaced
14:cc66a625989f 15:6d9f127da28f
31 percentage = c($ord) 31 percentage = c($ord)
32 size =c($abs) 32 size =c($abs)
33 min = min(size) 33 min = min(size)
34 max = max(size) 34 max = max(size)
35 dat = data.frame(size,percentage) 35 dat = data.frame(size,percentage)
36 png(filename=\"$out_png\", width = 800, height = 480) 36 png(filename=\"$out_png\", width = 640, height = 640)
37 c = ggplot(dat,aes(size,percentage)) 37 c = ggplot(dat,aes(size,percentage))
38 c + geom_bar(stat="identity") + scale_x_continuous(breaks=min:max)+theme( axis.text.x = element_text(angle=90, hjust=0.5, size=20), axis.text.y = element_text( size=20 ), axis.title.x = element_text( size=25, face="bold"), axis.title.y = element_text( size=25, face="bold") ) 38 c + geom_bar(stat="identity") + scale_x_continuous(breaks=min:max)+theme( axis.text.x = element_text(angle=90, hjust=0.5, size=20), axis.text.y = element_text( size=20 ), axis.title.x = element_text( size=25, face="bold"), axis.title.y = element_text( size=25, face="bold") )
39 dev.off()`); 39 dev.off()`);
40 $R->stopR(); 40 $R->stopR();
41 41