有没有办法用 R 转换图像？例如 JPEG 到 GIF答案

【问题标题】：Is there a way to convert image with R ? JPEG to GIF for example有没有办法用 R 转换图像？例如 JPEG 到 GIF
【发布时间】：2013-07-09 01:12:53
【问题描述】：

我希望使用 R 在 tcltk 窗口（而不是 R 设备）中显示图像，但最简单的方法（如下）仅支持 GIF 文件：

require(tcltk)
tcl("image","create","photo", "imageID", file="a.gif")
w <- tktoplevel()
l <- ttklabel(w, image="imageID", compound="image")
tkpack(l)

我的文件是 png/jpeg（包含我的程序本身生成的直方图的文件）

有人有想法进行这种转换吗？

谢谢

【问题讨论】：

或者，您可以使用 ImageMagick 非常轻松地转换文件格式。
是的..但我希望它是自动的。
@user2551551 - 您可以使用system() 调用从 R 内部调用 imagemagick，然后继续您的快乐方式。
你安装了 ImageMagick 吗？您可以使用 system 函数从 R 内部“自动”调用 imageMagick 命令。例如，如果我想在 R 中调用系统命令 ls，我可以使用 system('ls')（或者如果你在 Windows 上，你可以尝试使用 system('dir')）。

标签： image r gif

【解决方案1】：

尽管有警告，但这似乎成功了：

 png("test.png")
 plot(1,1)
 dev.off()
#quartz 
 #    2 
 library(png)
 help(package="png")
 img <- readPNG("test.png")
 str(img)
# num [1:480, 1:480, 1:4] 1 1 1 1 1 1 1 1 1 1 ...
 require(caTools)
#Loading required package: caTools
 write.gif(img, "test.gif", scale="always")
#-----------------
Warning message:
In if (col == "jet") col = colorRampPalette(c("#00007F", "blue",  :
  the condition has length > 1 and only the first element will be used

【讨论】：

好的..它的工作原理。但 gif 是动画的，没有颜色。但它有效。