我使用 Rstudio 中的 Rmarkdown 编写报告。当使用 knitr 将其转换为 html 格式时，knitr 也会生成一个 markdown 文件。我使用以下方式将该文件转换为 pandoc：
pandoc -f markdown -t docx input.md -o output.docx
output.docx 文件很好，但有一个问题：图像的大小被改变了，我需要在 Word 中手动调整图像大小。有没有什么方法可以使用（例如 pandoc 的选项），使得图像大小正确呢？
k：{r, fig.width=8*k, fig.height=6*k}
在全局块选项中有一个变量dpi:
opts_chunk$set(dpi = dpi)
然后，在全局环境中编织Rmd文件之前，您可以设置dpi和k的值：
dpi <<- 96
k <<- 1
您可以将它们作为一个块在Rmd文件中设置（例如，在第一个块中设置k）。
library(knitr)
opts_chunk$set(echo = FALSE, dev = c("png", "pdf"), dpi = 400,
fig.width = 8/2.54, fig.height = 8/2.54,
out.extra ='WIDTH="75%"'
)
data(iris)
#' # Iris datatset
summary(iris)
boxplot(iris[,1:4])
#+ fig.width=14/2.54, fig.height=10/2.54
par(mar = c(2,2,2,2))
pairs(iris[,-5])
2) 使用 out.width 和 out.height 在 html 文件中指定图形的像素大小。我使用一个常量“sc”来缩小绘图大小以适应 html 输出。这是更准确的方法，但问题在于每个图形都必须定义 fig.witdth/height 和 out.width/height，这真的很无聊！理想情况下，您应该能够在全局选项中指定例如 out.width = 150*fig.width（其中 fig.width 从块到块变化）。也许有类似的东西是可能的，但我不知道如何做。
#+ echo = FALSE
library(knitr)
sc <- 150
opts_chunk$set(echo = FALSE, dev = c("png", "pdf"), dpi = 400,
fig.width = 8/2.54, fig.height = 8/2.54,
out.width = sc*8/2.54, out.height = sc*8/2.54
)
data(iris)
#' # Iris datatset
summary(iris)
boxplot(iris[,1:4])
#+ fig.width=14/2.54, fig.height=10/2.54, out.width= sc * 14/2.54, out.height= sc * 10/2.54
par(mar = c(2,2,2,2))
pairs(iris[,-5])
library(knitr)
setwd("/home/gilles/")
spin("figsize1.R")
system("pandoc figsize1.md -o figsize1.html")
system("pandoc figsize1.html -o figsize1.odt")
3) 只需编译两次您的文档，一次使用低dpi值（约96）用于html输出，一次使用高分辨率（约300）用于odt / docx输出。这是我现在偏爱的方式。主要缺点是必须进行两次编译，但对我来说这不是真正的问题，因为我通常只需要在工作的最后阶段才提供给最终用户odt文件。我经常使用Rstudio中的html笔记本按钮定期编译html。
#+ echo = FALSE
library(knitr)
opts_chunk$set(echo = FALSE, dev = c("png", "pdf"),
fig.width = 8/2.54, fig.height = 8/2.54
)
data(iris)
#' # Iris datatset
summary(iris)
boxplot(iris[,1:4])
#+ fig.width=14/2.54, fig.height=10/2.54
par(mar = c(2,2,2,2))
pairs(iris[,-5])
然后使用以下脚本编译这两个输出（注意，您可以直接将md文件转换为html）：
library(knitr)
setwd("/home/gilles")
opts_chunk$set(dpi=96)
spin("figsize3.R", knit=FALSE)
knit2html("figsize3.Rmd")
opts_chunk$set(dpi=400)
spin("figsize3.R")
system("pandoc figsize3.md -o figsize3.odt")
fig.width/fig.height和/或out.width/out.height？ - Gilles San Martinfig.width 和 fig.height（但不包括 out.width 和 out.height）。 - Stéphane Laurentdpi=400 来提高质量，然后使用 ImageMagick 调整大小，按照我的答案进行操作。 - Stéphane Laurentopts_chunk$set。下次我会尝试。 - Stéphane Laurent这里有一个使用ImageMagick从R脚本调整图片大小的解决方案。70%的比例似乎是一个不错的选择。
# the path containing the Rmd file :
wd <- "..."
setwd(wd)
# the folder containing the figures :
fig.path <- paste0(wd, "/figure")
# all png figures :
figures <- list.files(fig.path, pattern=".png", all.files=TRUE)
# (safety) create copies of the original files
dir.create(paste0(fig.path,"_copy"))
for(i in 1:length(figures)){
fig <- paste0(fig.path, "/", figures[i])
file.copy(fig,"figure_copy")
}
# resize all figures
for(i in 1:length(figures)){
fig <- paste0(fig.path, "/", figures[i])
comm <- paste("convert -resize 70%", fig, fig)
shell(comm)
}
# then run pandoc from a command line
# or from the pandoc() function :
library(knitr)
pandoc("MyReport.md", "docx")
关于ImageMagick的resize函数，更多信息请访问：www.perturb.org
convert -resize 70% fig1.png fig1.png 调整大小时会有质量损失。 - Stéphane Laurentword/document.xml中图像的样子：<w:p>
<w:r>
<w:drawing>
<wp:inline>
<wp:extent cx="1524000" cy="1524000" />
...
<a:graphic>
<a:graphicData uri="http://schemas.openxmlformats.org/drawingml/2006/picture">
<pic:pic>
...
<pic:blipFill>
<a:blip r:embed="rId23" />
...
</pic:blipFill>
<pic:spPr bwMode="auto">
<a:xfrm>
<a:off x="0" y="0" />
<a:ext cx="1524000" cy="1524000" />
</a:xfrm>
...
</pic:spPr>
</pic:pic>
</a:graphicData>
</a:graphic>
</wp:inline>
</w:drawing>
</w:r>
</w:p>
所以，将节点wp:extent和a:ext的cx和cy属性替换为所需值即可完成调整大小工作。以下R代码适用于我。最宽的图像将占据由变量out.width指定的整行宽度，其余部分将按比例调整大小。
require(XML)
## default linewidth (inch) for Word 2003
out.width <- 5.77
docx.file <- "report.docx"
## unzip the docx converted by Pandoc
system(paste("unzip", docx.file, "-d temp_dir"))
document.xml <- "temp_dir/word/document.xml"
doc <- xmlParse(document.xml)
wp.extent <- getNodeSet(xmlRoot(doc), "//wp:extent")
a.blip <- getNodeSet(xmlRoot(doc), "//a:blip")
a.ext <- getNodeSet(xmlRoot(doc), "//a:ext")
figid <- sapply(a.blip, xmlGetAttr, "r:embed")
figname <- dir("temp_dir/word/media/")
stopifnot(length(figid) == length(figname))
pdffig <- paste("temp_dir/word/media/",
## in case figure ids in docx are not in dir'ed order
sort(figname)[match(figid, substr(figname, 1, nchar(figname) - 4))], sep="")
## get dimension info of included pdf figures
pdfsize <- do.call(rbind, lapply(pdffig, function (x) {
fig.ext <- substr(x, nchar(x) - 2, nchar(x))
pp <- pipe(paste(ifelse(fig.ext == 'pdf', "pdfinfo", "file"), x, sep=" "))
pdfinfo <- readLines(pp); close(pp)
sizestr <- unlist(regmatches(pdfinfo, gregexpr("[[:digit:].]+ X [[:digit:].]+", pdfinfo, ignore.case=T)))
as.numeric(strsplit(sizestr, split=" x ")[[1]])
}))
## resizing pdf figures in xml DOM, with the widest figure taking up a line's width
wp.cx <- round(out.width*914400*pdfsize[,1]/max(pdfsize[,1]))
wp.cy <- round(wp.cx*pdfsize[, 2]/pdfsize[, 1])
wp.cx <- as.character(wp.cx)
wp.cy <- as.character(wp.cy)
sapply(1:length(wp.extent), function (i)
xmlAttrs(wp.extent[[i]]) <- c(cx = wp.cx[i], cy = wp.cy[i]));
sapply(1:length(a.ext), function (i)
xmlAttrs(a.ext[[i]]) <- c(cx = wp.cx[i], cy = wp.cy[i]));
## save hacked xml back to docx
saveXML(doc, document.xml, indent = F)
setwd("temp_dir")
system(paste("zip -r ../", docx.file, " *", sep=""))
setwd("..")
system("rm -fr temp_dir")
knitr中渲染较小的图像。 - daroczigknitr内部的大小，因为这些大小在输出的HTML文件中很好。 - Stéphane Laurent