adjusted min.size for bar labels

Author: ercbk

README.Rmd

@@ -151,9 +151,7 @@ b <- ggplot(subtargets, aes(y = elapsed, x = repeats,
                        fill = n, label = elapsed)) +
    geom_col(position = position_dodge(width = 0.85)) +
    scale_fill_manual(values = fill_colors[4:7]) +
-   # geom_text(hjust = 1.3,  size = 3.5,
-   #           color = "white", position = position_dodge(width = 0.85)) +
-   geom_bar_text(position = "dodge", min.size = 3.5,
+   geom_bar_text(position = "dodge", min.size = 9,
                  place = "right", contrast = TRUE) +
    coord_flip() +
    labs(y = "Runtime (hrs)", x = "Repeats",
@@ -202,7 +200,7 @@ e <- ggplot(subtargets, aes(x = repeats, y = percent_error, group = n)) +
    )
 ```
 
-```{r kj-patch, echo=FALSE, fig.width=10, fig.height=6}
+```{r kj-patch, echo=FALSE, fig.width=12, fig.height=7}
 b + e + plot_layout(guides = "auto") +
    plot_annotation(title = "Kuhn-Johnson") &
    theme(legend.position = "top",