• I will plot the national Brazillian Soccer Competion 2016 teams position per round.

• Data was acquired on wikipedia. (https://pt.wikipedia.org/wiki/Desempenho_por_rodada_do_Campeonato_Brasileiro_de_Futebol_de_2016_-_S%C3%A9rie_A)

• Special characteres were adjusted on notepad++

• For this plot to work I need to turn this big table to a more long, less column format.

library(dplyr)
library(tidyr)
names(cb16) <- gsub("X","",names(cb16))
cb16N <- cb16 %>% gather(Round, Position, -Times)
cb16N$Round <- as.factor(as.numeric(cb16N$Round))

• For plot it I will force lines and reverse de Y axis, since position should be higher as close to 1 (first position).

• It's a lot of data. since there are 38 rounds and 20 teams.
• I will keep just the 5 top teams at the last round to have a clear view.