27 lines
791 B
R
27 lines
791 B
R
#minimal example
|
|
|
|
, tpos0 = 0 # 0 is a magic number that does my sensible default
|
|
, tW0 = 1
|
|
, tH0 = 0.3
|
|
|
|
|
|
plot_df = generate_distance_colour_map(plot_df, yvar_colname = stability_colname, debug=TRUE)
|
|
|
|
|
|
cowplot::plot_grid(
|
|
your_working_ggpot_statement + geom_tile(aes(, tpos0 # heat-mapped distance tiles along the bot
|
|
, width = tW0
|
|
, height = tH0)
|
|
, fill = plotdf$ligD_colours
|
|
, colour = plotdf$ligD_colours
|
|
, linetype = "blank") +
|
|
,
|
|
generate_distance_legend(plot_df, yvar_colname = stability_colname)
|
|
ncol = 2,
|
|
#align = "hv",
|
|
rel_widths = c(9/10, 0.4/10)
|
|
)
|
|
|
|
|
|
|
|
|