DS5

{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE) install tidyverse {r} install.packages("tidyverse") load tidyverse {r} library(tidyverse) import data {r} df <- read_csv("Playlist.csv") count genres {r} df %>% count(Genre) {r} Gf <- df %>% count(Genre)

new column {r} Gf %>% mutate( prob = n/105)