Davis DS5

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

{r} install.packages("tidyverse")

```{r} library(tidyverse)

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

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

{r} gf<-gf%>%mutate( newcol = n/105) print(gf)

{r} gf%>% mutate(newcol=round(newcol,2))

###these new values are the percent chance of getting a song from each genre###