{r} sample_n(df, 10)
{r} df %>% count()
{r} df %>% mutate()
{r} sample_n(df, 30) %>% count(Genre) %>% mutate(probability = round(n/sum(n), 2))
{r} sample_n(df, 40) %>% count(Genre) %>% mutate(probability = round(n/sum(n), 2))
{r} sample_n(df, 10) %>% count(Genre) %>% mutate(probability = round(n/sum(n), 2))
{r} sample_n(df, 20) %>% count(Genre) %>% mutate(probability = round(n/sum(n), 2))
{r} sample_n(df, 5) %>% count(Genre) %>% mutate(probability = round(n/sum(n), 2))