在滑动演示中调整视频框的动画效果(RMarkdown)

时间:2016-10-14 14:52:38

标签: r animation knitr gridextra slidy

我正在制作一个演示文稿,其中包含一个动画,其中有一个滑动的图形网格(rmarkdown)。视频框对于幻灯片有点太大了,我想减少它。 我的演讲与此类似:

---
title: "Adbd"
output: slidy_presentation
---

## Animation

```{r animation1,echo=FALSE,fig.align='center', fig.show='animate', aniopts='controls,width=0.1', fig.height=9, fig.width=9,fig.retina=2}
for(i in 1:2){
  library(ggplot2)
  library(gridExtra)
  p1 <- ggplot(mtcars, aes(wt, mpg))+geom_point()+xlim(1,6)+ylim(9,35)
  p2 <- ggplot(mtcars, aes(wt, mpg))+geom_point()+xlim(1,8)+ylim(9,35)
  p3 <- ggplot(mtcars, aes(wt, mpg))+geom_point()+xlim(1,8)+ylim(6,35)
  p4 <- ggplot(mtcars, aes(wt, mpg, label=rownames(mtcars)))+geom_point()+xlim(1,8)+ylim(9,35)+ geom_text()

  grid.arrange(p1,p2,p3,p4, nrow=2, ncol=2) 
}
```

我想将视频标记的宽度从它的默认值(864)缩小到650.我可以很容易地在.html中进行,但是,我宁愿将它从.rmd文件。

到目前为止,我试过了:

  • 将宽度参数添加到aniopts,(没有任何效果)
  • 玩fig.height和fig.width,(他们改变了文字的大小)
  • 在grid.arrange中使用高度和宽度参数,(与之前相同)

任何帮助将不胜感激。

1 个答案:

答案 0 :(得分:1)

这对我有用

video {
  width:  650px  !important;
  height:  auto  !important;
}

如果需要,您也可以将视频居中

video { 
  display: block;
  margin: 0 auto;
}

你的rmd看起来像

---
title: "Adbd"
output: slidy_presentation
---

<style>

video {
  width:  650px  !important;
  height:  auto  !important;

  /* center the player */
  display: block;
  margin: 0 auto;
}

</style>

## Animation

```{r animation1,echo=FALSE,fig.align='center', fig.show='animate', aniopts='controls,width=0.1', fig.height=9, fig.width=9,fig.retina=2}
for(i in 1:2){
  library(ggplot2)
  library(gridExtra)
  p1 <- ggplot(mtcars, aes(wt, mpg))+geom_point()+xlim(1,6)+ylim(9,35)
  p2 <- ggplot(mtcars, aes(wt, mpg))+geom_point()+xlim(1,8)+ylim(9,35)
  p3 <- ggplot(mtcars, aes(wt, mpg))+geom_point()+xlim(1,8)+ylim(6,35)
  p4 <- ggplot(mtcars, aes(wt, mpg, label=rownames(mtcars)))+geom_point()+xlim(1,8)+ylim(9,35)+ geom_text()

  grid.arrange(p1,p2,p3,p4, nrow=2, ncol=2) 
}
```