\documentclass{jsarticle}
\usepackage{histogr}
\usepackage{framed}
\newenvironment{myleftbar}{%
   \def\FrameCommand{\vrule width 1pt \hspace{10pt}}%
   \MakeFramed {\advance\hsize-\width \FrameRestore}}%
{\endMakeFramed}
\usepackage{listings,plistings}

\newcommand{\RR}{\textsf{R}}

\begin{document}

\begin{minipage}{35mm}
{\lstset{morekeywords=[1]{histogr}}
\begin{lstlisting}
\usepackage{histogr}
\end{lstlisting}
}
\end{minipage}

\RR{}を用いることで下記のようなヒストグラムを得ることが出来ます。

\begin{minipage}{.45\textwidth}
\begin{myleftbar}
\begin{verbatim}
> x<- rnorm(100)
> hist(x,plot=F)$count ->aa
> aa
[1]  7 14 16 17 18 14 12  2
\end{verbatim}
\end{myleftbar}
\end{minipage}
\begin{minipage}{.1\textwidth}
$\Longrightarrow$
\end{minipage}
\begin{minipage}{.42\textwidth}
\begin{center}
\setlength\unitlength{2mm}
\begin{picture}(20,20)
\put(0,0){\line(1,0){20}}
\put(0,0){\line(0,1){20}}

\histogram
( 0, 0)( 0, 7)
( 2,14)( 4,16)
( 6,17)( 8,18)
(10,14)(12,12)
(14, 2)(16, 0)
\end{picture}
\end{center}
\end{minipage}

\end{document}

x<- rnorm(100)
hist(x,plot=F)$count ->aa
aa
7 14 16 17 18 14 12  2
