{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)
Tidyverse {r} install.packages("tidyverse") Tidyverse
Library {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 pop is 12.4%