# NOT RUN {
# To convert data frame to tidy data (long) format, run:
library(dplyr)
library(tidyr)
library(stringr)
fifa_audience_tidy <- fifa_audience %>%
gather(type, share, -c(country, confederation)) %>%
mutate(type = str_sub(type, start=1, end=-7)) %>%
arrange(country)
# }
Run the code above in your browser using DataLab