5.4

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

tidyverse {r} install.packages("tidyverse") tidyverse ```{r} library(tidyverse)

import data
```{r}
df <- read_csv("Playlist 24-25 - Playlist.csv")

Count ```{r} GF<-df%>% count(Genre)

mutate
```{r}
GF%>%mutate( Prob = n/105)

The probability of getting country/rock is 25.7%