Commit c8ce2421 authored by khalid's avatar khalid
Browse files

Add group coloration for marker depth signi plot

parent cc3e82ed
......@@ -10,10 +10,12 @@ chemin= paste0(parameters$results_dir,"/",parameters$<step_name>__radsex_signif_
fichier = paste0(chemin, "/significant_markers_mqc.tsv")
ttt = read.table(fichier, skip=1, header=T)
popmap = parameters$popmap_file
output_file = paste(parameters$results_dir,parameters$<step_name>__radsex_signif_output_dir,"Marker_depth_radsex_signif_mqc.png",sep = "/")
if (nrow(ttt) > 1)
{# Default marker depths plot
radsex_marker_depths(fichier, output_file = output_file, clustering_method = 'ward.D')
radsex_marker_depths(fichier, output_file = output_file, group_info_file = popmap, clustering_method = 'ward.D')
} else {
p = ggplot() + ggtitle("No enough significant loci to cluster") + theme(panel.border = element_rect(colour = "black", fill=NA, size=2))
png(output_file)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment