Question

我的预订项目（或rmarkdown网站上有一个非常大的（约14MB）*.jpeg，我觉得这并不重要。这是一个外部静态图像，R未触及（到目前为止）。

我这样称呼图片：

```{r q-pic, echo=FALSE, out.width="100%", fig.cap="Q-Sorting during the 2016 CiviCon", dpi = 72}
include_graphics(path = "img/q-sorting3.jpg")
```

我还通过opts_knit$set(fig.retina = 2)设置了视网膜。

我真的不在乎PDF有多大，但显然，网站上的~14MB图像非常糟糕。

knitr() rmarkdown() bookdown()工具链中的某些元素是否可以自动将图像重新缩放到指定的适当分辨率？

我天真地认为，如果指定了 out.width和dpi，那么图片将在窗帘后面重新缩放（即：较小的文件大小），但是要么看起来不是这样，或我使用它错了。

Ps。：我知道有可能指定一个dpi，然后knitr找出合适的大小;那不是我关心的问题。我想，那就是逆。

Answer 1

我认为调整实际图像大小（而不仅仅是在HTML中如何缩放）的唯一方法是将图像加载到R并对其进行栅格化：

```{r fig.width=3}
library(jpeg)
library(grid)
img <- readJPEG("test.jpg")
grid.raster(img)
```

（光栅化方法改编自：How to set size for local image using knitr for markdown?）

这将导致较小的图像/ HTML文件。

Answer 2

我现在还在普通R中实现了压缩和重新缩放功能。它并不快，可能很笨拙，但它完成了工作。

library(jpeg)
library(imager)

resize_n_compress <- function(file_in, file_out, xmax = 1920, quality = 0.7, cutoff = 100000) {
  # xmax <- 1920  # y pixel max
  # quality <- 0.7  # passed on to jpeg::writeJPEG()
  # cutoff <- 100000  # files smaller than this will not be touched
  # file_out <- "test.jpg"
  if (file.size(file_in) < cutoff) {  # in this case, just copy file
    if (!(file_in == file_out)) {
      file.copy(from = file_in, to = file_out, overwrite = TRUE)
    }
  } else {# if larger than cutoff
    image_raw <- imager::load.image(file = file_in)
    if (dim(image_raw)[1] > xmax) {  # resize only when larger
      x_pix <- xmax  # just in case we want to calculate this, too at some point
      x_factor <- xmax/dim(image_raw)[1]
      y_pix <- round(dim(image_raw)[2] * x_factor)
      image_resized <- imager::resize(im = image_raw, size_x = x_pix, size_y = y_pix)
    } else {# otherwise take raw
      image_resized <- image_raw
    }
    saveme <- imager:::convert.im.toPNG(A = image_resized)
    jpeg::writeJPEG(image = saveme, target = file_out, quality = quality)  # this overwrites by default
  }
}

另请参阅knitr和blogdown上的这些相关问题。

如何为bookdown / rmarkdown网站重新缩放本地图像？

2 个答案: