20

我在尝试使用 pandoc.convert 将其转换为 .pdf 的 ar markdown 文档中引用块时遇到问题。

如果我包含\label{mylabel}在文本中 - 我可以通过\ref{mylabel}. 但是，我认为我可能能够类似地引用一个块（或一个块中的表/图） - 但我没有运气。

例如，对于块：

```{r myplot, echo=FALSE, warning=FALSE}
plot(cars)
```

我虽然可能可以放置\ref{myplot}甚至\ref{fig:myplot}是内部降价参考[car plot](myplot)。文档似乎提到标签是根据块的名称创建的，这些是与类似问题相关的建议格式。但似乎没有一个工作。

同样对于表（我使用 pander 创建） - 我有如下块：

```{r car_sum}
library(pander)
car_summary<-summary(cars)
pander(car_summary, caption = "This is a summary of cars")
```

当使用“pandoc.convert”从 .md 文件转换为 .pdf 时，表格被赋予了一个很好的标题“表 3 这是汽车的摘要”并进行了编号，但我似乎无法将标签用作参考\ref{car_sum}并且它总是显示为 '??'。一些论坛似乎提到您必须在标签名称之前包含“标签：”或“无花果：”，但这仍然对我不起作用。

可以在文本中完成块引用吗？如果是这样，需要输入什么才能正确执行此操作，以便它在最终文档中显示类似“见表 2”的内容。

4

2 回答 2

19

世事皆可能！！

请参阅此要点，它可以满足您的描述。只需保存并编织它以查看它的实际效果......出于某种原因，Rpub 不想发布它（未知错误）。

将生成的 knitr 转换.html为.pdf通过 pandoc 进行的测试也产生了工作链接，这是一个不错的奖励！

主力是::

```{r setup, echo=FALSE, results='hide'}
chunkref <- local({
  function(chunklabel) {
    sprintf('[%s](#%s)', chunklabel, chunklabel )
  }  
})

secref <- local({
  function(seclabel) {
    sprintf('[%s](#%s)', seclabel, seclabel )
  }  
})

pgref <- local({
  function(n)
  sprintf('[Page-%i](#Page-%i)', n, n)
})

sec <- local({
  function(seclabel) {
    sprintf('# <a name="%s"/> %s', seclabel, seclabel )
  }  
})

pgcount <- local({
  pg <- 0
  function(inc=T) {
    if( inc ) { pg <<- pg + 1 }
    return( pg )
  }
})

pganchor <- local({
  function(doLabel=T) {
    if( doLabel) {
      sprintf('\n-----\nPage-%i\n<a name="Page-%i"/>\n', pgcount(inc=F), pgcount() )
    } else {
      sprintf('\n<a name="Page-%i"/>\n', pgcount() )
    }
  }
})

knit_hooks$set( anchor = function(before, options, envir) {
  if ( before ) {
    sprintf('<a name="%s"/>\n', options$label )
  }
})

knit_hooks$set( echo.label = function(before, options, envir) {
  if ( before ) {
    sprintf('> %s', options$label )
  }
})

knit_hooks$set( pgbreak = function(before, options, envir) {
  if ( !before ) {
    pganchor();
  }
})
````

这允许创建多种类型的引用...

Inline: `r sec("Introduction")` then `r secref("Introduction")`

或者

作为块选项：

```{r car-summary, echo=T, warning=FALSE, anchor=T, pgbreak=T, echo.label=F}`

然后

`r chunkref("car-summary")`

甚至“页面顶部”链接和“页面底部”标记和标签......

于 2013-06-21T00:15:49.137 回答
6

参考数字的更简单解决方案：将其放在fig.cap字段中（双倍\\以逃避第一个\）：

fig.cap="\\label{mylabel}Caption of my figure."

然后，用于\autoref{mylabel}参考正文中的图。

我正在使用带有 Rmarkdown 的 RStudio。完整的 RMD 文档：

---
output: pdf_document
---

```{r fig.cap="\\label{mylabel}Caption of my figure."}
plot(1)
```

The generated figure is \autoref{mylabel}.
于 2016-05-10T07:22:13.563 回答