个人中心
gpt4 book ai didi

r - 如何使用 R 将本地 png 文件复制粘贴到 Word 文档？

转载 作者：行者123 更新时间：2023-12-02 04:25:55 27 4
gpt4 key购买 nike

我有大约 10,000 张 png 图像整齐地保存在我的电脑上的不同文件中。我想编写一个函数，它可以执行类似转到特定文件夹并迭代地将该文件夹中的所有 png 文件复制粘贴到 Word 文档的操作。这在 R 中可能吗？

我查看了包R2wd，但遗憾的是它只有一个函数，它接受 RData 并将其绘图输出到 Word 文档(函数 wdPlot)。

我还为每个绘图保存了 RData，因此原因表明我应该能够简单地加载与特定绘图关联的 RData，然后使用 wdPlot 。问题是，当我生成 png 时，绘图很乱，我做了如下操作:

png("rp.png",width=w,height=h)
plot(rp)
#Increase size of title
grid.edit(gridTitle_Ref, gp=gpar(fontsize=20))
#Other grid.edit alterations
dev.off()
save(rp)

现在，当我尝试通过首先将其加载到 R 中来将该 rp 放入 Word 文档时，我天真地执行了以下操作，并且它不会将标题放大的绘图或任何其他网格输出到 MS Word。编辑更改。

load("rp.Rdata")    
png("rp.png",width=w,height=h)
wdPlot(rp) 
#Increase size of title 
grid.edit(gridTitle_Ref, gp=gpar(fontsize=20))
#Other grid.edit alterations
dev.off()

所以，重申一下:我有所有这些 png 文件。有时我必须将其中的一部分复制粘贴到 Word 文档中。我懒得每次都手动执行此操作，并希望有一个程序为我执行此操作。

编辑 1

因此，根据下面的建议，我阅读了 Markdown。关注此帖子How to set size for local image using knitr for markdown?我写了一些类似的内容:

```{r,echo=FALSE,fig.width=100, fig.height=100}
# Generate word documents of reports
# Clear all
rm(list=ls())
library(png)
library(grid)
library(knitr)

dir<-"location\of\file"
setwd(dir)

# Output only directories:
folders<-dir()[file.info(dir())$isdir]

for(folder in folders){ 
  currentDir<-paste(dir,folder,"\\",sep="")
  setwd(currentDir)

  #All files in current folder
  files<-list.files()

  imgs<-[A list of all the png images in this particular file that I want in the word document - the png names]

  for(img in imgs){   
    imgRaster<-readPNG(img) 
    grid.raster(imgRaster)
    }
 } 

```

以下是生成的 Word 文档中内容的屏幕截图。我该如何解决这个问题？我希望当上面的 for 循环运行时，图像在文档中一个接一个地出现。

enter image description here

请注意，这是我第一次使用 Markdown，因此评论中链接的任何相关教程也可能会有很大帮助。

编辑2我按照下面第二个答案的示例进行操作。这是我获得的输出 enter image description here enter image description here

正如你所看到的，没有图像，只有 html 标签。我该如何解决？

最佳答案

如果您保存了 png，您只需使用一点 html 和 for 循环即可将它们保存到 >.doc 文件。

编辑 2 适用于 Windows

# Start empty word doc
cat("<body>", file="exOut.doc", sep="\n")

 # select all png files in working directory
for(i in list.files(pattern="*.png"))
         {
         temp <- paste('<img src=', i, '>')
         cat(temp, file="exOut.doc", sep="\n", append=TRUE)  
         }

cat("</body>", file="exOut.doc", sep="\n", append=TRUE)
# Some example plots
for(i in 1:5) 
      { 
      png(paste0("ex", i, ".png"))
      plot(1:5)
      title(paste("plot", i))
      dev.off()
      }


# Start empty word doc
cat(file="exOut.doc")

# select all png files in working directory
for(i in list.files(pattern="*.png")) 
             {
             temp <- paste('<img src=', i, '>')
             cat(temp, file="exOut.doc", sep="\n", append=TRUE)   
             }

然后，您需要嵌入图形，可以使用下拉菜单，也可以编写一个可以使用系统调用的小宏

编辑:小更新以显示输出和数字的明确路径

cat("<body>", file="/home/daff/Desktop/exOut.doc", sep="\n")

for(i in list.files(pattern="*.png")) 
{
  temp <- paste0('<img src=/home/daff/', i, '>')
  cat(temp, file="/home/daff/Desktop/exOut.doc", sep="\n", append=TRUE)   
}

请注意，我使用 paste0 删除了路径 /home/daff/ 和 ex*.png 之间的空格。

关于r - 如何使用 R 将本地 png 文件复制粘贴到 Word 文档？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/27116881/

27 4 0
文章推荐： image - 使用 imagemagick 检测大部分空图像
文章推荐： apscheduler 以 90 秒为间隔？
文章推荐： ruby-on-rails - 如何在保存之前将新数据与 bd 中的现有数据进行比较
文章推荐： c# - Python 中使用十六进制进行位移位
行者123
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com