#tidytuesday: Eurovision

From today there is a new label in the blog to work with the tidytuesday data available from tidytuesday.

There are a lot of tutorials to learn to tidy our data to prepare it  to extract information, and to develop models (I normally see the videos of Julia Silge and David Robinson), so even if these post are not much related to the world of chemometrics they will help us to have fun with the "R" language, get better skills and habits that we will use it when necessary to work with R in our daily work.

I select the Eurovision data in this case, and the first thing I ask myself was to try to find a plot which shows me the evolution of the Eurovision contest

eurovision_1 %>%
    count(year,section, sort = TRUE) %>%
    ggplot(aes(year, n, fill = section )) +
    geom_col(width = 1, colour = "black") +
    theme(axis.text.x = element_text(angle = 90, vjust = 0.1)) +
    scale_x_continuous(breaks = seq(1956, 2022)) +
    theme(axis.text=element_text(size=7))  +
    coord_flip()

The plot shows the different periods of the Eurovision contest seeing how the number of countries increased almost every year. We see when the system of semi-finals started and several curious things, that we will try to discover in the label: tidytuesday:Eurovision.