R works中的saveGIF似乎适用于plot，但不适用于ggplot

我试图在R中的动画包中使用saveGIF函数。plot没有问题，但ggplot出现错误

simplePlot <- function (){

df <- data.frame(dose=c("D0.5", "D1", "D2"),
                            len=c(4.2, 10, 29.5))
p<-ggplot(data=df, aes(x=dose, y=len)) +
  geom_bar(stat="identity")
p

df <- data.frame(dose=c("D0.5", "D1", "D2"),
                 len=c(5.2, 5, 19.5))
p<-ggplot(data=df, aes(x=dose, y=len)) +
  geom_bar(stat="identity")
p

}

simplerPlot <- function(){
  df <- data.frame(dose=c("D0.5", "D1", "D2"),
                   len=c(4.2, 10, 29.5))
  plot(df)
  df <- data.frame(dose=c("D0.5", "D1", "D2"),
                   len=c(5.2, 5, 19.5))
  plot(df)

}

如下所示，toy plotting函数与plot一起工作，但与ggplot一起抛出错误

simplePlot <- function (){

df <- data.frame(dose=c("D0.5", "D1", "D2"),
                            len=c(4.2, 10, 29.5))
p<-ggplot(data=df, aes(x=dose, y=len)) +
  geom_bar(stat="identity")
p

df <- data.frame(dose=c("D0.5", "D1", "D2"),
                 len=c(5.2, 5, 19.5))
p<-ggplot(data=df, aes(x=dose, y=len)) +
  geom_bar(stat="identity")
p

}

simplerPlot <- function(){
  df <- data.frame(dose=c("D0.5", "D1", "D2"),
                   len=c(4.2, 10, 29.5))
  plot(df)
  df <- data.frame(dose=c("D0.5", "D1", "D2"),
                   len=c(5.2, 5, 19.5))
  plot(df)

}

--->抛出错误

saveGIF(simplePlot(),movie.name = 'test.gif')

这是saveGIF（simplePlot（），movie.name='test.gif'引发的错误）

---

saveGIF（simplerPlot（），movie.name='test.gif'）不会发生这种情况。

您可能需要

打印（plot（df））

。。。这可能是simplePlot中打印（p）与ggplot版本的一个变体？这很有效！非常感谢。

Error in if (100%%fps) stop("argument 'fps' must be a factor of 100") : 
  argument is of length zero