在 RMarkdown 表中引用答案

【问题标题】：Citing within an RMarkdown table在 RMarkdown 表中引用
【发布时间】：2018-07-31 12:13:52
【问题描述】：

我正在尝试创建一个表，该表中内置了引文。这是我想要实现的目标的视觉效果。

据我所知，您只能在rowvars 或colvars 中添加脚注kableExtra（喜欢那个包）。

# Create a dataframe called df
Component <- c('N2','P3')
Latency <- c('150 to 200ms', '625 to 800ms')
Location <- c('FCz, Fz, Cz', 'Pz, Oz')
df <- data.frame(Component, Latency, Location)

以下是我阅读kableExtra的Git页面后的尝试

# Trying some code taken from the kableExtra guide
row.names(df) <- df$Component
df[1] <- NULL
dt_footnote <- df
names(dt_footnote)[1] <- paste0(names(dt_footnote)[2],
                                footnote_marker_symbol(1))

row.names(dt_footnote)[2] <- paste0(row.names(dt_footnote)[2], 
                                footnote_marker_alphabet(1))
kable(dt_footnote, align = "c", 
      # Remember this escape = F
      escape = F, "latex", longtable = T, booktabs = T, caption = "My Table Name") %>%
  kable_styling(full_width = F) %>%
  footnote(alphabet = "Jones, 2013",
           symbol = "Footnote Symbol 1; ",
           footnote_as_chunk = T)

但此代码仅适用于标题。最终目标是如果我可以使用像 @JonesFunctionalMixedEffectModels2013 这样的 BibTex 引用，那么代码的最后部分看起来像

footnote(alphabet = @davidsonFunctionalMixedEffectModels2009,
           symbol = "Footnote Symbol 1; ", footnote_as_chunk = T)

有人有什么想法吗？

谢谢

【问题讨论】：

我找不到解决方案。如果您需要解决方案，我建议您尝试通过Git page 联系 kableExtra 的开发人员。我最终只是在编译文档后在 Word 中进行了修改。我是该软件包的忠实粉丝，因为您能够减少获得良好最终结果所需的代码量。

标签： latex r-markdown kable kableextra

【解决方案1】：

我最后做的是用pander生成一个临时表，然后手动将引用的编号复制到我的kable

pander(
  df,
  caption = "Temporal",
  style = "simple",
  justify = "left")

【讨论】：