ggplot(df, aes(y = cont))+
geom_rect(aes(xmin=xmin, xmax=xmax, ymin=as.numeric(cont)-1.5, ymax=as.numeric(cont)-.5),
fill="#f6f6f6")+
geom_text(label = "Institution", x = -.675, y = dim(df)[1]+1, size = txt.sz, color = "black", fontface = 2, hjust = 0)+
geom_text(label = "Overall", x = 1.075, y = dim(df)[1]+1, size = txt.sz, color = "black", fontface = 2)+
geom_text(label = "\u0394", x = 1.2, y = dim(df)[1]+1, size = txt.sz, color = "black", fontface = 2)+
geom_text(aes(x = x1, label = x1pr), size = txt.sz, color = "#E6956F", nudge_x = df$x1nu)+
geom_text(aes(x = x2, label = x2pr), size = txt.sz, color = x2.col, nudge_x = df$x2nu)+
geom_text(aes(x = x1*0+1.075, label = ovpr), size = txt.sz, color = "black") +
geom_text(aes(x = x1*0+1.2, label = dipr), size = txt.sz, color = "black")+
geom_segment(aes(x = x1, xend = x2, yend = cont), color = "gray40", size=1)+
geom_point(aes(x=x1), shape = 16, size = 2.5, color = "#E6956F")+
geom_point(aes(x=x2), shape = 16, size = 2.5, color = "#E6956F")+
scale_y_discrete(expand = c(0, 0))+
scale_x_continuous()+
coord_cartesian(ylim = c(0.2, 12.5), xlim = c(0,1.2), clip = 'off')