5.4 & 5.5.

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

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

Import Data
```{r}
df <- read_csv("Playlist 24-25 - Playlist (1).csv")

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

Mutate {r} GF%>%mutate ( prob = n/105) The probability of getting country is 3.1%