study %>%
tidyplot(x = treatment, y = score) %>%
add_data_points_beeswarm() %>%
add_title("This is my title")
study %>%
tidyplot(x = treatment, y = score) %>%
add_data_points_beeswarm() %>%
add_caption("This is the fine print in the caption")
# Plotmath expression
study %>%
tidyplot(x = treatment, y = score) %>%
add_data_points_beeswarm() %>%
add_title("$H[2]*O~and~E==m*c^{2}$")
Run the code above in your browser using DataLab