Unterstützt Rmarkdown mehrere Untertitel?

Question

Ich muss zwei Beschriftungen unter jeder Abbildung und über jeder Tabelle einfügen. Eine Bildunterschrift wird in Polnisch und die zweite in Englisch sein. In LaTeX könnte dies durch bicaption Paket in folgenden Weise erfolgen:

\usepackage{polski} 
\usepackage[english, polish]{babel} 
\usepackage[T1]{fontenc} 
\usepackage[utf8]{inputenc} 

\usepackage[lang=english]{bicaption} 

\begin{figure}[H] 
    \includegraphics[width=0.5\textwidth]{Einrad} 

    \bicaption{Polish caption here with special letters: ĄĆŹŚÓŁ}{English caption just below} 

    \label{Fig:FIgBicycle} 
\end{figure} 

Gibt es eine Möglichkeit, das gleiche in Rmarkdown zu tun? Wie kann ich sehen, gibt es nur eine fig.cap= verfügbar?

Answer 1

Ich bin nicht in der Lage, diese Arbeit gut von .RMD zu .pdf gehen. Ich bin jedoch in der Lage, eine Lösung zu hacken, die von .RNW zu .pdf geht. Ändern Sie den source Hook, um den LaTeX \caption zu \bicaption zu ändern, und verwenden Sie die Chunk-Option fig.cap = "polish caption}{English caption". Hier

ist ein Beispiel .Rnw Datei:

\documentclass{article} 

\usepackage[T1]{fontenc} 
\usepackage{textcomp} 
\usepackage[english, polish]{babel} 
\usepackage{blindtext} 
\usepackage[utf8]{inputenc} 
\usepackage[lang=english]{bicaption} 

\title{Bicaptions} 

\begin{document} 

\maketitle 

We will defind a hood to replace the {\tt caption} command with {\tt bicaption} 
when the \LaTeX\ is rendered. 

<<>>= 
library(ggplot2) 
library(knitr) 

hook_source <- knit_hooks$get('source') 
knit_hooks$set(source = function(x, options) {     
        txt <- hook_source(x, options) 
        gsub("\\\\caption", "\\\\bicaption", txt) 
       }) 
@ 

\blindtext 

<<eg_graphic, echo = FALSE, fig.cap = 'Polish caption here with special letters: ĄĆŹŚÓŁ }{English caption just below', fig.align = "center", fig.width = 3, fig.height = 3>>= 
ggplot(mtcars) + aes(x = wt, y = mpg) + geom_point() 
@ 

\Blindtext 

\end{document} 

Und die Ausgabe sieht wie folgt aus: