geom_line with time evolution

set.seed(123)
d <- data.frame(
  name = rep(c("A","B","C","D","E","F"), each=4), 
              time=rep(c(0,1,3,6), each=6),
value=rnorm(24, 5, 4)
)

library(ggplot2)
library(ggrepel)
ggplot(d, aes(x=time,y=value, color=name)) + geom_point() + geom_line() + 
geom_text_repel(aes(label=name)) + ggtitle("Time evolution")