2

Rを使用して(Rデバイスではなく)tcltkウィンドウに画像を表示したいのですが、最も簡単な方法(以下)はGIFファイルのみをサポートしています:

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

私のファイルはpng/jpegです(プログラム自体によって生成されたヒストグラムを含むファイル)

誰かがその変換を行うアイデアを持っていますか?

ありがとうございました

4

1 に答える 1

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
于 2013-07-11T02:24:21.403 に答える