如何做R：加载图像文件，在图像上打印文本，保存修改后的图像

Question

...理想情况下，使用PNG图像文件，如果不是JPEG。我可以用

加载文件

library(png)
img = readPNG("chart.png")

但是我被困在那里了。目标是键入＆＃34; Hello world n＃34;在图像上并保存。

谢谢。

Answer 1

我认为这应该可以正常工作

library(png)

#read file
img<-readPNG("33.png")

#get size
h<-dim(img)[1]
w<-dim(img)[2]

#open new file for output
png("out.png", width=w, height=h)
par(mar=c(0,0,0,0), xpd=NA, mgp=c(0,0,0), oma=c(0,0,0,0), ann=F)
plot.new()
plot.window(0:1, 0:1)

#fill plot with image
usr<-par("usr")    
rasterImage(img, usr[1], usr[3], usr[2], usr[4])

#add text
text(.5,.5, "hello", cex=5, col=rgb(.2,.2,.2,.7))

#close image
dev.off()