调整幻灯片演示中动画的视频框大小（RMarkdown）

我正在制作一个演示文稿，其中包含一个以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) 
}
```

---
标题：“Adbd”
输出：幻灯片演示
---
##动画
```{r animation1，echo=FALSE，fig.align='center'，fig.show='animate'，aniopts='controls，width=0.1'，fig.height=9，fig.width=9，fig.retina=2}
（我在1:2中）{
图书馆（GG2）
图书馆（gridExtra）
p1这对我有用

视频{
宽度：650px！重要；
高度：自动！重要；
}

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

video{
显示：块；
保证金：0自动；
}

您的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) 
}
```

---
标题：“Adbd”
输出：幻灯片演示
---
录像带{
宽度：650px！重要；
高度：自动！重要；
/*中锋*/
显示：块；
保证金：0自动；
}
##动画
```{r animation1，echo=FALSE，fig.align='center'，fig.show='animate'，aniopts='controls，width=0.1'，fig.height=9，fig.width=9，fig.retina=2}
（我在1:2中）{
图书馆（GG2）
图书馆（gridExtra）
非常感谢！我不知道我可以从css中重写width属性。