r - knitr - 上面的图标题

Question

有没有办法，在 knitr 中将 fig.cap 移动到图形上方？我需要上面的它们，以便当为某个表选择图列表的超链接时，它会导航到图。 Right now the caption and thus hyperlink target are at the bottom so when selected only the caption is shown at the top of the page and one must scroll up to see the figure...rather silly.

我当前的代码示例:

<<Race, fig.lp='fig:', fig=TRUE, eval=TRUE, echo=FALSE, dev='png', fig.pos='H', fig.width=8, fig.height=4, fig.cap='Race', fig.align='center', dpi=300>>=
b <- ggplot(melt(race.plot, id=c("Type"), variable.name="Race", value.name="Count"))
b + geom_bar(aes(Race, y=Count, fill=Race), position="dodge", stat="identity", alpha=0.7) + 
  ggtitle("Race") + xlab("") + ylab("Count") +
  facet_wrap(~Type, nrow=2, scale="free_y") +
  theme(plot.title=element_text(size=25), 
    axis.title=element_text(size=15), 
    axis.text.y=element_text(size=10),
    axis.text.x=element_blank(),
    axis.ticks.x=element_blank())
@

我知道有一些方法可以使用 latex 并将 fig.cap 单独留在 knitr 块中:

\begin{figure} 
\caption{This is a caption above the figure} 
<<a-plot, echo=FALSE>>= 
plot(1) 
@ 
\end{figure} 

大多数建议是执行上述操作，但日期大约是 2012 年或 2013 年初。我想知道现在对 knitr 的任何更改是否允许此功能。

我一直在使用 knitr 和 xtable 中的选项来控制我输出中的大部分内容，但共识是什么？我应该避免这种情况并尽可能在 knitr 块之外使用 latex 选项吗？

Answer 1

也许为时已晚，但我想一辉回答了这个问题。

您可以将所有图形的针织钩更改为在图形上方显示标题。例如，这是一个来自 .Rmd 文档的块的版本。如果您告诉 knitr 更改 figure 的选项，则首先查看文档，然后查看实际的 .

```{r setup}
library(knitr)
knit_hooks$set(plot = function(x, options) {
  paste('<figure><figcaption>', options$fig.cap, '</figcaption><img src="',
        opts_knit$get('base.url'), paste(x, collapse = '.'),
        '"></figure>',
        sep = '')
})
```