bcftools_stats_plot: fix title

R/umccrise.R

@@ -30,7 +30,7 @@ bcftools_stats_plot <- function(x = NULL) {
   tot <- nrow(d)
   p <- d |>
     ggplot2::ggplot(ggplot2::aes(x = .data$qual)) +
-    ggplot2::geom_histogram(ggplot2::aes(y = ggplot2::after_stat(stats::density)), binwidth = 4, fill = "lightblue") +
+    ggplot2::geom_histogram(ggplot2::aes(y = ggplot2::after_stat(.data$density)), binwidth = 4, fill = "lightblue") +
     ggplot2::geom_density(alpha = 0.6) +
     ggplot2::geom_vline(xintercept = med, colour = "blue", linetype = "dashed") +
     ggplot2::scale_x_continuous(n.breaks = 10) +
@@ -39,7 +39,7 @@ bcftools_stats_plot <- function(x = NULL) {
       label = paste0("Median: ", med),
     ) +
     ggplot2::theme_bw() +
-    ggplot2::ggtitle(glue::glue("SNV quality score distribution (total SNVs: {tot})"))
+    ggplot2::ggtitle(glue::glue("Small variant quality score distribution (total variants: {tot})"))
   p
 }