Skip to content
Snippets Groups Projects
Commit afea0612 authored by ddepanis's avatar ddepanis
Browse files

Update fullTable_heatmap_external_metrics.R

parent 9d91b3aa
No related branches found
No related tags found
No related merge requests found
...@@ -9,8 +9,6 @@ fullTableOfStats$Gaps_per_Gb <- ((fullTableOfStats$Gaps / fullTableOfStats$Total ...@@ -9,8 +9,6 @@ fullTableOfStats$Gaps_per_Gb <- ((fullTableOfStats$Gaps / fullTableOfStats$Total
fullTableOfStats$Gaps_per_Gb <- as.integer(fullTableOfStats$Gaps_per_Gb) fullTableOfStats$Gaps_per_Gb <- as.integer(fullTableOfStats$Gaps_per_Gb)
#customPurple='#c699e8'
#customGreen='#8fc773'
customPurple='#99c1f1' customPurple='#99c1f1'
customGreen='#8ff0a4' customGreen='#8ff0a4'
...@@ -25,57 +23,13 @@ sink(file = snakemake@output[[1]]) ...@@ -25,57 +23,13 @@ sink(file = snakemake@output[[1]])
format_table(selectionOfStats_colouredHeatmap, format_table(selectionOfStats_colouredHeatmap,
align =c("l","c","c","c","c", "c", "c", "c", "c"), align = c("l", "c", "c", "c", "c", "c", "c", "c", "c"),
list(Gaps_per_Gb = formatter("span", list(Gaps_per_Gb = formatter("span", style = ~style(display = "block", padding = "0 4px", `border-radius` = "3px", `background-color` = ifelse(between(Gaps_per_Gb, 1001, 10000), "#F9F06B", ifelse(between(Gaps_per_Gb, 201, 1000), customGreen, ifelse(Gaps_per_Gb <= 200, customPurple, "#F66151"))))),
style = ~style(display = "block", Scaf_N50 = formatter("span", style = ~style(display = "block", padding = "0 4px", `border-radius` = "3px", `background-color` = ifelse(Scaf_N50 < 100000, "#F66151", ifelse(Scaf_N50 < 10000000, "#F9F06B", ifelse(Scaf_N50 < 100000000, customGreen, customPurple))))),
padding = "0 4px", Cont_N50 = formatter("span", style = ~style(display = "block", padding = "0 4px", `border-radius` = "3px", `background-color` = ifelse(Cont_N50 < 10000, "#F66151", ifelse(Cont_N50 < 1000000, "#F9F06B", ifelse(Cont_N50 < 10000000, customGreen, customPurple))))),
`border-radius` = "3px", Kmer_Compl = formatter("span", style = ~style(display = "block", padding = "0 4px", `border-radius` = "3px", `background-color` = ifelse(between(Kmer_Compl, 80, 89.9999), "#F9F06B", ifelse(between(Kmer_Compl, 90, 94.99999), customGreen, ifelse(Kmer_Compl >= 95, customPurple, "#F66151"))))),
`background-color` = ifelse(between(Gaps_per_Gb,1001, 10000), "#F9F06B", qv = formatter("span", style = ~style(display = "block", padding = "0 4px", `border-radius` = "3px", `background-color` = ifelse(between(qv, 35, 39.9999999999), "#F9F06B", ifelse(between(qv, 40, 49.999999999), customGreen, ifelse(qv >= 50, customPurple, "#F66151"))))),
ifelse(between(Gaps_per_Gb,201 , 1000), customGreen, `Comp_Single_BUSCOs_%` = formatter("span", style = ~style(display = "block", padding = "0 4px", `border-radius` = "3px", `background-color` = ifelse(between(`Comp_Single_BUSCOs_%`, 80, 89.9999), "#F9F06B", ifelse(between(`Comp_Single_BUSCOs_%`, 90, 94.99999), customGreen, ifelse(`Comp_Single_BUSCOs_%` >= 95, customPurple, "#F66151")))))))
ifelse(Gaps_per_Gb <= 200, customPurple, "#F66151"))))),
Scaf_N50 = formatter("span",
style = ~style(display = "block",
padding = "0 4px",
`border-radius` = "3px",
`background-color` = ifelse(between(Scaf_N50,0.1, 9.99999), "#F9F06B",
ifelse(between(Scaf_N50,10, 99.99999), customGreen,
ifelse(Scaf_N50 >= 100, customPurple, "#F66151"))))),
Scaf_L50 = formatter("span",
style = ~style(display = "block",
padding = "0 4px",
`border-radius` = "3px",
`background-color` = ifelse(between(Scaf_L50,0.1, 9.99999), "#F9F06B",
ifelse(between(Scaf_L50,10, 99.99999), customGreen,
ifelse(Scaf_L50 >= 100, customPurple, "#F66151"))))),
Cont_N50 = formatter("span",
style = ~style(display = "block",
padding = "0 4px",
`border-radius` = "3px",
`background-color` = ifelse(between(Cont_N50,0.01, 0.99999), "#F9F06B",
ifelse(between(Cont_N50,1, 9.999999), customGreen,
ifelse(Cont_N50 >= 10, customPurple, "#F66151"))))),
Kmer_Compl = formatter("span",
style = ~style(display = "block",
padding = "0 4px",
`border-radius` = "3px",
`background-color` = ifelse(between(Kmer_Compl,80, 89.9999), "#F9F06B",
ifelse(between(Kmer_Compl,90, 94.99999), customGreen,
ifelse(Kmer_Compl >= 95, customPurple, "#F66151"))))),
qv = formatter("span",
style = ~style(display = "block",
padding = "0 4px",
`border-radius` = "3px",
`background-color` = ifelse(between(qv,35, 39.9999999999), "#F9F06B",
ifelse(between(qv,40, 49.999999999), customGreen,
ifelse(qv >= 50, customPurple, "#F66151"))))),
`Comp_Single_BUSCOs_%` = formatter("span",
style = ~style(display = "block",
padding = "0 4px",
`border-radius` = "3px",
`background-color` = ifelse(between(`Comp_Single_BUSCOs_%`,80, 89.9999), "#F9F06B",
ifelse(between(`Comp_Single_BUSCOs_%`,90, 94.99999), customGreen,
ifelse(`Comp_Single_BUSCOs_%` >= 95, customPurple, "#F66151")))))))
cat('<br>') cat('<br>')
cat("\n") cat("\n")
...@@ -140,5 +94,3 @@ format_table(legendTable, ...@@ -140,5 +94,3 @@ format_table(legendTable,
ifelse(`Comp_Single_BUSCOs_%` == '80% - 90%',"#F9F06B", ifelse(`Comp_Single_BUSCOs_%` == '80% - 90%',"#F9F06B",
ifelse(`Comp_Single_BUSCOs_%` == '90% - 95%',customGreen, customPurple))))))) ifelse(`Comp_Single_BUSCOs_%` == '90% - 95%',customGreen, customPurple)))))))
sink(file = NULL) sink(file = NULL)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment