You have to print the ggplot-object. Here is an example with your data:
pts <- read.table(text = '10.16530167 54.32216667
10.16530167 54.32216667
10.16529833 54.32216833
10.165295 54.32217
10.16529333 54.32217167
10.16529167 54.32217167
10.16529167 54.32217167
10.16529333 54.32217167
10.165295 54.32217
10.165295 54.32217
10.165295 54.32217167
10.16529333 54.32217
10.16528833 54.32217
10.16527833 54.32216667
10.16527167 54.32216
10.165265 54.32215667')
names(pts) <- c('x', 'y')
require(ggplot2)
require(animation)
npoints<- nrow(pts)
plotfoo <- function(){
for(i in 1:npoints){
take_df <- pts[1:i, ]
p <- ggplot() +
geom_path(data = take_df, aes(x = x, y = y)) +
xlim(c(min(pts$x), max(pts$x))) +
ylim(c(min(pts$y), max(pts$y)))
print(p)
}
}
oopt = ani.options(interval = 1, nmax = npoints)
saveMovie(plotfoo(),interval = 0.1, width = 580, height = 400)