Clover McAvoy DS5

{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)

```{r} install.packages(“tidyverse”)

```{r}
library(tidyverse)

{r} df <- read_csv("Playlist.csv") {r} gf<-df %>% count(Genre) print(gf) {r} gf<-gf %>% mutate (probability = n/105) print(gf) This shows the proablitiy of each genre beinging played out of the 105 songs.