require(ggplot2)

X <- c(1,4,3,6,7)
Y <- c(2,4,8,5,4)
labels <- c('11/23/1999', '01/13/2001', '03/15/2002', '06/03/2001', '10/11/2003')
df <- data.frame(X, Y, labels)

g <- ggplot(df, aes(x = X, y = Y))
g <- g + geom_point()
g <- g + geom_text(label = df$labels, nudge_y = 0.5)
g <- g + geom_segment(x = X[1], y = Y[1], xend = X[2], yend = Y[2], arrow = arrow())
g <- g + geom_segment(x = X[2], y = Y[2], xend = X[3], yend = Y[3], arrow = arrow())
g <- g + geom_segment(x = X[3], y = Y[3], xend = X[4], yend = Y[4], arrow = arrow())
g <- g + geom_segment(x = X[4], y = Y[4], xend = X[5], yend = Y[5], arrow = arrow())
g