r - 如何在 R 中创建缩略图？

Question

我正在尝试生成带有 R 图的 .png 文件。这很好用:

png(file="hello.png", width=1000, height=800)

# Lots and lots of plotting. Long code. Very slow.
plot(x=c(1, 2, 3), y=c(4, 6, 5))

dev.off()

现在如何直接从 R 获取 hello.png 的缩略图？

Answer 1

我不确定这将如何扩展到您的实际应用程序，并且对 png 库没有太多经验，但这在我的测试用例中运行得相当快。您需要指定要制作缩略图的 PNG 文件的名称以及该缩略图的高度/宽度。默认情况下，它将在同一目录中保存缩略图，并在文件名前添加 thumb_。

makeThumb <- function(file, height, width) {
  require(png)
  img <- readPNG(file)

  png(file = paste("thumb", file, sep = "_"), height = height, width = width)
    par(mar=c(0,0,0,0), xaxs="i", yaxs="i", ann=FALSE)
    plot(1:2, type='n', xaxt = "n", yaxt = "n", xlab = "", ylab = "")
    lim <- par()
    rasterImage(img, lim$usr[1], lim$usr[3], lim$usr[2], lim$usr[4])
  dev.off()
}

请告诉我这是否适合您。该函数与lapply配合良好，也可以同时操作目录中的大量文件:lapply(listOfFiles, makeThumb, height = 200, width = 200) .