Statistical_Rethinking_with_brms_ggplot2_and_the_tidyverse icon indicating copy to clipboard operation
Statistical_Rethinking_with_brms_ggplot2_and_the_tidyverse copied to clipboard

Published 20 hours ago • verified publisher icon ASKurz

embed_url()

Open ASKurz opened this issue 5 years ago • 0 comments

In Bonus Section 13.5, embed the actual lecture presentation in the ebook with the following code:

vembedr::embed_url("https://www.youtube.com/watch?v=rSQ1XMwO_9A&feature=youtu.be&t=343") %>%
  vembedr::use_align("center")

While you're at it, consider throwing in a visualization of the data, too. Maybe something like this, which is based on the second plot in this blog post.

funding %>% 
  mutate(p = awards / applications) %>% 
  
  ggplot(aes(x = p, y = reorder(discipline, p))) +
  geom_point(aes(color = gender, size = applications)) +
  scale_size_continuous(breaks = NULL) +
  scale_color_manual(NULL, values = c("#A65141", "#80A0C7")) +
  scale_x_continuous("award probability", limits = c(0, .5)) +
  ylab(NULL) +
  theme_pearl_earring(axis.text.y = element_text(hjust = 0),
                      axis.ticks.y = element_blank()) +
  theme(legend.position = c(.9, .8))

ASKurz avatar Nov 11 '20 16:11 ASKurz