Yes, excuse me, it's a mistake.
dd1 = read.csv2("data_dd1.csv")
Plot
plot = ggplot(data = dd1, aes(x = Lon, y = Lat, color = Date_J, group = as.factor(Lat)))
In addition
pj = position_jitter(h=0.0005,w=0.0005)
plot + geom_point(size=3, position=pj) +
geom_label_repel(aes(color = Date_J,label = as.factor(Date_J)), box.padding = 0.35, point.padding = 0.5, segment.color = 'grey50', segment.size = 0.5) +
geom_mark_ellipse(aes(fill = Date_J), position=pj) +
ggtitle("Movement of individu 1")