Add distance lines to ggplot2

I can't figure out how to add distance lines to the chart image below without it being a manual process. the code to add the points is simple. Any help would be greatly appreciated! The lines to need to be exactly like the image either.

##Example data
structure(list(Type = c("A", "A", "A", "B", "B", "C", "C", "C"
), Hz = c(50, 550, 1050, 800, 300, 50, 550, 1050), Vert = c(500, 
500, 550, 600, 600, 700, 750, 700)), row.names = c(NA, 8L), class = "data.frame")