搜索
查看: 2258|回复: 0

[R] 批量修改png图片,把文件名添加到图片里面去

[复制链接]

633

主题

1182

帖子

4030

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
4030
发表于 2017-7-10 09:08:36 | 显示全部楼层 |阅读模式
看到一个很有趣的代码,值得学习:
[AppleScript] 纯文本查看 复制代码
ll <- list.files(patt='*.png')
library(png)
library(grid)
imgs <- lapply(ll,function(x){
  img <- as.raster(readPNG(x))
  ## get the file name
  x.name <- gsub('(.*).png','\\1',x)
  ## new device for new image version
  png(file =paste(x.name,'_modified','.png',sep=''))
  grid.raster(img)
  ## here I add title
  grid.text(label = x.name,x=0.5,y=0.9,gp=gpar(cex=2))
  dev.off()

})

来自:https://stackoverflow.com/questi ... dcloud-graphics-png
运行一遍就知道怎么回事啦



上一篇:直播第四题【代码注释】:多个同样的行列式文件合并.....
下一篇:根据pubmed文章ID来提取内容并输出成word cloud
你这个问题很复杂,需要打赏,请点击 http://www.bio-info-trainee.com/donate 进行打赏,谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|小黑屋|生信技能树 ( 粤ICP备15016384号  

GMT+8, 2019-11-21 17:43 , Processed in 0.024969 second(s), 25 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.