fancyvrb 中的表格带有连续的颜色框吗？

Question

\fancyvrb因此，我尝试在R 代码的中间插入一个表格（带有图像） 。 周围\fancyvrb有一个\colorbox灰色的 。 有没有办法让所有三个部分（逐字 pt1、表格、逐字 pt2）都处于同一个连续状态\colorbox？

我愿意放弃将颜色框宽度限制在文本末尾的做法，而是允许它延伸到页面的右边距。但如果 3 个部分之间没有空格，问题仍然存在

我在想也许我可以把所有东西都变成\minipage灰色背景，但我想知道是否有更优雅的解决方案？特别是因为我打算多次使用这种风格。

尝试 1

\usepackage{xcolor} 
\colorlet{code}{gray!15!}
\usepackage{verbatim}
\usepackage{fancyvrb}
\newenvironment{cverbatim}
 {\SaveVerbatim{cverb}}
 {\endSaveVerbatim
  \flushleft\fboxrule=0pt\fboxsep=.5em
  \colorbox{code}{\BUseVerbatim{cverb}}%
  \endflushleft}

\begin{cverbatim}
    library("Tidyverse")
    library("Quandl")
    JPGDP <- Quandl("FRED/JPNRGDPQDSNAQ", type="raw")
    \end{cverbatim}
\begin{tabular}{ c  c }\raisebox{-.945\height}     
     {\includegraphics{r/2.2.1}} & This is text
    \end{tabular}
\begin{cverbatim}
    p1 <- ggplot(JPGDP, aes(x=DATE, y=VALUE)) +
        geom_line()
    p1
    \end{cverbatim}

第二次尝试

\usepackage{xcolor} 
\colorlet{code}{gray!15!}
\usepackage{verbatim}
\usepackage{fancyvrb}
\newenvironment{cverbatim}
 {\SaveVerbatim{cverb}}
 {\endSaveVerbatim
  \flushleft\fboxrule=0pt\fboxsep=.5em
  \colorbox{code}{\BUseVerbatim{cverb}}%
  \endflushleft}

\begin{cverbatim}
    library("Tidyverse")
    library("Quandl")
    JPGDP <- Quandl("FRED/JPNRGDPQDSNAQ", type="raw")
    \end{cverbatim}
\colorbox{\begin{tabular}{ c  c }\raisebox{-.945\height}     
     {\includegraphics{r/2.2.1}} & This is text
    \end{tabular}
\begin{cverbatim}
    p1 <- ggplot(JPGDP, aes(x=DATE, y=VALUE)) +
        geom_line()
    p1
    \end{cverbatim}

Answer 1

您可以使用一个简单的tcolorbox。

当然，您将使用您的图像来代替example-image-a。

\documentclass{article}
\usepackage{tikz,lipsum,lmodern}
\usepackage[most]{tcolorbox}
\usepackage{tabularx}
\usepackage{graphbox}

\begin{document}
\begin{tcolorbox}[colback=lightgray!40,colframe=lightgray]
\begin{verbatim}
library("Tidyverse")
library("Quandl")
JPGDP <- Quandl("FRED/JPNRGDPQDSNAQ", type="raw")
\end{verbatim}
\begin{tabularx}{\linewidth}{@{}Xl@{}}   
     \includegraphics[align=t,width=\linewidth]{example-image-a} & This is text
\end{tabularx}
\begin{verbatim}
p1 <- ggplot(JPGDP, aes(x=DATE, y=VALUE)) +
        geom_line()
p1
\end{verbatim}
\end{tcolorbox}
\end{document}