如何放大Rmarkdown演示文稿中的图

Question

我正在创建我的第一个HTML-带有rmarkdown的演示文稿（ioslides），并且希望能够手动放大幻灯片并导航到一个对象。
在浏览器（crtl +，crtl鼠标滚轮）中，缩放效果很好，但是我无法移动幻灯片。既不使用鼠标也不使用滚动条。后者不会像在网站上那样出现。
是否有实现这种事情的适当方法，或者不打算像这样使用滑坡？

我正在使用Ubuntu 16.04（LXDE）和rstudio（R版本3.2.3）。我尝试在Firefox和Chromium中进行缩放和导航。

例：

---
title: Zooming into an ioslide
author: "Robatt"
output: 
 ioslides_presentation: 
 fig_caption: yes
---

```{r setup, include=FALSE}
 knitr::opts_chunk$set(echo = FALSE)
```
##The slide to zoom in and navigate

```{r fig.align='left', out.width = "100px", dpi=300, 
fig.cap="a small graph to zoom in, when necessary"}
library(ggplot2)
x=c(1:30,by=0.1)
y=x/(1+x)
ggplot()+
  geom_smooth(aes(x=x,y=y),se=F,span=0.15,color="grey20")+
  labs(x="you can only read me after zooming in")
```

这也是我第一次没有找到关于stackoverflow的答案，因此也第一次没有找到答案。

Answer 1

我认为您的问题主要是关于如何放大一些小图。这是使用jQuery的解决方案：

基本上，我们在幻灯片中添加了一个div带有img元素的容器。之后，我们将onClick功能集成到所有绘图（也称为img元素）和带有class的图像zoomImg。如果您单击某个图，它将显示在我们的容器内，如果您单击该容器，它将再次消失。这是代码：

---
title: Zoom in on Plots
author: "MS"
output: 
 ioslides_presentation: 
   fig_caption: yes
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```

<script src="https://ajax.googleapis.com/ajax/libs/jquery/3.1.1/jquery.min.js"></script>

<style>
.zoomDiv {
  opacity: 0;
  position:absolute;
  top: 50%;
  left: 50%;
  z-index: 50;
  transform: translate(-50%, -50%);
  box-shadow: 0px 0px 50px #888888;
  max-height:100%; 
  overflow: scroll;
}

.zoomImg {
  width: 100%;
}
</style>


<script type="text/javascript">
  $(document).ready(function() {
    $('slides').prepend("<div class=\"zoomDiv\"><img src=\"\" class=\"zoomImg\"></div>");
    // onClick function for all plots (img's)
    $('img:not(.zoomImg)').click(function() {
      $('.zoomImg').attr('src', $(this).attr('src'));
      $('.zoomDiv').css({opacity: '1', width: '60%'});
    });
    // onClick function for zoomImg
    $('img.zoomImg').click(function() {
      $('.zoomDiv').css({opacity: '0', width: '0%'});
    });
  });
</script>

## First Slide

```{r fig.align='left', out.width = "100px", dpi=300, fig.cap="tiny"}
plot(mtcars$cyl, main = "Plot 1")
``` 

```{r fig.align='left', out.width = "100px", dpi=300, fig.cap="tiny"}
plot(mtcars$mpg, main = "Plot 2")
``` 

这将导致以下演示：

没有点击：

单击第一个图：

要使此操作适用于普通的HTML文档，请更改

$('slides').prepend("<div class=\"zoomDiv\"><img src=\"\" class=\"zoomImg\"></div>");

至

$('body').prepend("<div class=\"zoomDiv\"><img src=\"\" class=\"zoomImg\"></div>");