didascalia sopra figura usando knitr

Question

Vorrei mettere la didascalia sopra la figura usando knitr in texmaker. I know that this question has already been asked, e capisco che la soluzione suggerita finora è quello di utilizzare:

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

Ma in questo modo non posso mostrare il codice (dal echo=FALSE). E se scelgo invece echo=TRUE, quello che ottengo è la didascalia, quindi i codici e quindi il grafico, che non è anche quello che voglio. Quello che mi piacerebbe mostrare è il codice per R, (e) il grafico tracciato con quel codice R, con la didascalia sopra il il grafico.

Answer 1

Prova utilizzando il gancio:

<<include=FALSE>>= 
f <- function(x, options) { 
    paste("\\end{kframe}\n", 
     "\\caption{", options$capT, "}\n", 
     hook_plot_tex(x, options), 
     "\n\\begin{kframe}", sep = "") 
} 
knit_hooks$set(plot = f) 
@ 

\begin{figure} 
<<a-plot, echo=TRUE, capT="cap, cap, and cap">>= 
plot(1) 
@ 
\end{figure} 

Answer 2

Questa è una versione leggermente modificata della risposta di kohske, che include \begin{figure} e aggiunge \label. Si noti tuttavia che contiene 5 righe, mentre il codice original contiene più di 150 righe, quindi dovrebbe essere utilizzato in impostazioni molto limitate.

f <- function(x, options) { 
    lab <- paste0(options$fig.lp, options$label) 
    paste("\\end{kframe}\n", 
     "\\begin{figure}\n\\caption{", options$capT, "}\\label{", lab,"}\n", 
     hook_plot_tex(x, options), 
     "\\end{figure}\n\n\\begin{kframe}", sep = "") 
} 
knit_hooks$set(plot = f)