inst/examples/animLabels.R

In duncantl/SVGAnnotation: Tools for post-processing SVG plots created in R

library(SVGAnnotation)
x = 1:100
y = 4 + .3*x + rnorm(length(x))

pp = svgPlot({
          plot(x[1], y[1], xlim = range(x), ylim = range(y))
          lines(x, y, type = "l", col = "lightgrey", lty = 3)
        })

animate(pp, data.frame(x, y), "x", dropFirst = TRUE,
         labels = unique(x), labelInfo = list(pos = c(100, 100), 'font-size' = 30, fill = 'red'),
           begin = 1, radii = NULL)

saveXML(pp, "tsLabels.svg")