将绘图传递到R中的“saveHTML（）{animation}”失败 背景：

我正在尝试使用

saveHTML（）{animation}

创建一个动画，以显示跑步者在连续两圈之间的速度是如何随时间变化的。我尝试使用以下代码将绘图传递到

expr

块：

MakeSpLaps <- function(finishers.pace, lap1, lap2, start.lap) {
    sp <- qplot(lap1, lap2, data=finishers.pace, 
                color=gender, alpha = I(.7) ) 

          # + additional elements removed;

    return(sp)
}

MakeSpLapsAnimation <- function(){
    brk <- seq(0, 3000, 60)
    lbl <- seconds_to_period(brk)
    oopt = ani.options(interval = 0.2, nmax = 20)
    saveHTML({
        par(mar = c(4, 4, 0.5, 0.5))
        for (i in 3:11){
            # The problematic line below
            MakeSpLaps(p, p[[i]], p[[i+1]], i-2) 
            ani.pause()
        }
    }, img.name = "lap_plot", imgdir = "lap_dir", htmlfile = "laps.html", 
        autobrowse = FALSE, title = "Plots of consecutive laps.", 
        description = "Plots of consecutive laps.")
}

问题和疑问： 单独运行

MakeSpLaps（p，p[[3]]，p[[4]]，1）

可以创建我想要的图形，但是当我将其插入

saveHTML（）

时，除了一个空白的PNG之外，没有创建任何绘图。创建HTML文件时会出现以下警告。如何将绘图正确地传递给函数

saveHTML（）

---

实际代码如下：

非常感谢！它起作用了@油滑的

'data.frame':   17051 obs. of  11 variables:
 $ bib       : int  10001 10003 10004 10005 10006 10009 10010 10011 10012 10013 ...
 $ gender    : Factor w/ 3 levels "","F","M": 3 3 3 3 3 3 3 3 3 3 ...
 $ X5km_lap  : num  290 204 196 315 228 ...
 $ X10km_lap : num  280 204 201 322 225 ...
 $ X15km_lap : num  283 205 204 326 235 ...
 $ X20km_lap : num  282 206 204 342 229 ...
 $ X25km_lap : num  280 210 205 371 235 ...
 $ X30km_lap : num  280 225 216 407 254 ...
 $ X35km_lap : num  279 274 231 404 267 ...
 $ X40km_lap : num  284 251 257 357 262 ...
 $ Finish_lap: num  289 242 247 333 265 ...

animation option 'nmax' changed: 20 --> 1
animation option 'nmax' changed: 1 --> 20
HTML file created at: laps.html