Build a two-sided plus line graph comparison

Question

I need to build a bipartite graph like this:

I have 2 ranked lists calculated using two different ranking methods. I would like to build this data in order to give rough qualitative information about the similarity of the 2 ranked lists.

The data I need to display is something like these named vectors:

rankMathodA = c(1.5, 4, 7, 3, 4.2) names(rankMathodA) = c("Team1", "Team2", "Team3", "Team4", "Team5") rankMathodA #Team1 Team2 Team3 Team4 Team5 # 1.5 4.0 7.0 3.0 4.2 rankMathodB = c(1.7, 3.5, 6.2, 3.9, 4.1) names(rankMathodB) = c("Team1", "Team2", "Team3", "Team4", "Team5") rankMathodB #Team1 Team2 Team3 Team4 Team5 # 1.7 3.5 6.2 3.9 4.1 

Answer 1

Here is the beginning of the ggplot approach with some data restructuring. Labels (using geom_text are added separately to control the placement of text.

 library(reshape2) library(ggplot2) #create a dataframe with all necessary variables dat <- data.frame(team=c("Team1", "Team2", "Team3", "Team4", "Team5"), rankA=c(1.5, 4, 7, 3, 4.2), rankB=c(1.7, 3.5, 6.2, 3.9, 4.1)) #turn to long dat_m <- melt(dat,id.var="team") #plot ggplot(dat_m, aes(x=variable, y=value, group=team)) + geom_line() + geom_text(data=dat_m[dat_m$variable=="rankA",],aes(label=team),hjust=1.1) + geom_text(data=dat_m[dat_m$variable=="rankB",],aes(label=team),hjust=-0.1) + geom_vline(xintercept = c(1,2)) + #hide axis, labels, grids. theme_classic() + theme( axis.title = element_blank(), axis.line = element_blank(), axis.text = element_blank(), axis.ticks = element_blank())