minor tweaks to dbcan report section

report_subpipeline/scripts/section_dbcan.rmd

@@ -73,14 +73,18 @@ df_dbcan_plot_data_summarized = df_dbcan_plot_data %>%
     filter(coverage >= .9) %>% 
     summarize(count = n())
 
-N_dbcan = df_dbcan_plot_data$sample %>% unique() %>% length()
+n_dbcan_samples = df_dbcan_plot_data$sample %>% unique() %>% length()
+n_dbcan_substrates = df_dbcan_plot_data$pretty %>% unique() %>% length()
+
+
+
 
 ```
 
 
 
 
-```{r dbcan-plot-show, echo=FALSE, message=F, warning=F, error = T, fig.height = max(1.8, (N_dbcan*0.2)+1.3), fig.width = 10}
+```{r dbcan-plot-show, echo=FALSE, message=F, warning=F, error = T, fig.height = max(1.8, (n_dbcan_samples*0.2)+1.3), fig.width = max(1.8, (n_dbcan_substrates*0.2)+2.3)}
 
 df_dbcan_plot_data_summarized %>% 
     ggplot(aes(pretty, reorder(sample, desc(index)), fill = count)) +