data(crest_ex)
plot_diagram(crest_ex, bars=TRUE, col='black', bar_width=0.8)
plot_diagram(crest_ex, col=1:7, tickAtSample=FALSE)
#> Replace 'tempdir()' by the location where the sample should be saved (e.g. 'getwd()')
plot_diagram(crest_ex, save=TRUE,
filename=file.path(tempdir(), 'testDiagram.pdf'),
bars=TRUE, col_pos='cornflowerblue', col_neg='darkgreen',
bar_width=0.8, xlim=c(3,15))
Run the code above in your browser using DataLab