r - 如何在RMarkdown表中嵌入图？

我正在尝试在RMarkdown中生成报告模板。在此报告中，我想在所使用的调查中问题的编号和文本旁边的单元格中绘制一个图表。我生成了一些示例图，并在MS Word中制作了以下示例。是否可以在RMarkdown的表格中放置R生成的图？

如果是这样，代码将是什么样？



编辑(9/8/16):我现在包括.Rmd文件。问题是html文件无法通过以下消息进行编译。

pandoc: Could not fetch Template1_files/figure-html/score_table-1.png
Template1_files/figure-html/score_table-1.png: openBinaryFile: does not exist (No such file or directory)
Error: pandoc document conversion failed with error 67
Execution halted

Template1是文件名，score_table是块标签。

有人愿意帮助我诊断问题吗？

<meta charset="utf-8">
---
title: "Untitled"
author: "Xander"
date: "September 7, 2016"
output: html_document
    self_contained: false
---

```{r mychunk, fig.show = "hide", echo = FALSE, fig.height=3, fig.width=5}
library(knitr)
library(ggplot2)

# sample data
dat <- data.frame(text = sapply(1:10, FUN = function(x) { paste0(sample(x = LETTERS, size = 15), collapse = "") }))
score_set = replicate(n = 10, expr = {data.frame(other = c("other", "other", "other", "other"), score=sample(1:7,4,TRUE))},simplify = F)

#Plot Function
plotgen<-function(score_set,other,score){
  p <- ggplot(score_set, aes(factor(other), score))
  p + geom_violin(fill = "#99CCFF") + coord_flip() + scale_x_discrete(name=NULL) +
  scale_y_continuous(breaks = round(seq(1, 7, by = 1),1), limits = c(1,7), name=NULL) + theme(axis.text.y=element_blank(),axis.title.y=element_blank(),axis.ticks.y=element_blank(),
      panel.grid.major.y = element_line(colour = "black"),
      panel.grid.minor = element_blank(),
      panel.background = element_rect(fill = "white"),
      panel.border = element_rect(colour = "black", fill=NA, size=1)) +
geom_hline(yintercept=sample(1:7,1,TRUE), size = 1.5, colour = "#334466")
}

# generate plots
invisible(lapply(seq_along(score_set), FUN = function(x) {plotgen(score_set[[x]],other,score)}))

out <- cbind(row.names(dat),
         as.character(dat$text),
         sprintf("![](%s%s-%s.png)", opts_current$get("fig.path"), opts_current$get("label"), 1:nrow(dat)))
kable(out, col.names = c("ID", "Text", ""))
````

最佳答案

您可以执行以下操作(对于基本图，而不是ggplot2图–请参阅底部的注释):

```{r mychunk, fig.show = "hide", echo = FALSE, fig.height=3, fig.width=5}
library(knitr)
# sample data
dat <- data.frame(
  text = sapply(1:10, FUN = function(x) { paste0(sample(x = LETTERS, size = 15), collapse = "") }),
  x1 = rnorm(10),
  x2 = rnorm(10, mean = 3),
  x3 = rnorm(10, mean = 5))

# generate plots
invisible(apply(dat[, 2:4], MARGIN = 1, FUN = boxplot))

out <- cbind(row.names(dat),
             as.character(dat$text),
             sprintf("![](%s%s-%s.png)", opts_current$get("fig.path"), opts_current$get("label"), 1:nrow(dat)))
kable(out, col.names = c("ID", "Text", "Boxplot"))
```

apply(dat[, 2:4], MARGIN = 1, FUN = boxplot)使用x1，x2和x3中的数据生成箱线图。这些图是生成的，但由于fig.show="hide"而未包含在文档中。

sprintf("![](%s%s-%s.png)", opts_current$get("fig.path"), opts_current$get("label"), 1:nrow(dat))生成markdown语法以包括绘图。这类似于calling include_graphics ，但具有将markdown作为字符向量的优点。

最后，kable生成表。

另外，您可以使用Pandoc的pipe_table as shown here手动生成表，该表具有更大的灵活性。

上面代码的输出:



Gregor's answer here显示了如何将其应用于ggplot2图:按元素逐个打印list返回的apply，即invisible(apply(...))变为invisible(lapply(apply(...), print))。

关于r - 如何在RMarkdown表中嵌入图？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/39362183/