install.packages(“ggplot2”) install.packages(“tidyr”) library(ggplot2) library(tidyr) data <- data.frame(Time = c(‘2014’, ‘2017’), setor = c(‘MI2′,’MI3′,’MI4′,’MI5′,’MI6′,’MI7′,’MI8′,’MI9′,’MI10′,’MI11′,’MI12′,’MI13′,’MI14′,’MI15′,’MI16′,’MI17′,’MI18′,’MI19′,’MI20′,’MI21′,’MI22′,’MI23′,’MI24′,’MI25′,’MI26′,’MI27′,’MI28′,’MI29′,’MI30′,’MI31′,’N2′,’N3′,’N4′,’N5′,’N6′,’N7′,’N8′,’N9′,’N10′,’N11′,’N12′,’N13′,’N14′,’N15′,’N16′,’N17′,’N18′,’N19′,’N20′,’N21′,’N22′,’N23′,’N24′,’N25′,’N26′,’N27′,’N28′,’N29′,’N30′,’N31’), Group1_Rank_2014 = c(1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,3,2,2,4,4,1,1,1,1,5,2,4,4,2,4,4,2,4,2,1,4,4,2,2,1,2,4,2,4,1), Group2_Rank_2017 = (1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,2,2,1,1,1,1,1,1,1,1,1,1,1,3,1,2,3,2,1,1,1,1,4,1,2,2,1,3,2,1,5,2,1,2,2,2,1,1,1,2,1,3,1)) data_long <- pivot_longer(data, cols = starts_with(“Group”), names_to = “Group”, values_to = “Rank”) ggplot(data_long, aes(x = Time, y = Rank, color = “black”, group = interaction(setor, Group))) + geom_line(aes(linetype = setor)) + + geom_point() + labs(x = […]