library(dplyr)
# What countries have been played in the most?
concerts %>%
count(country, sort = TRUE)
# What decade did most shows take place in?
library(lubridate)
concerts %>%
select(date) %>%
mutate(decade = (year(date) %/% 10) * 10) %>%
count(decade)
Run the code above in your browser using DataLab