\documentclass[a4paper] {jarticle}
\usepackage{mediabb}

\title{Sweave}

\newcommand{\code}[1]{{\texttt{#1}}}
\newcommand{\pkg}[1]{{\texttt{#1}}}
\newcommand{\class}[1]{{\textit{#1}}}
\newcommand{\R}{{\normalfont\textsf{R }}{}}

\begin{document}

\SweaveOpts{keep.source=TRUE, width=6, height=6}
\setkeys{Gin}{width=320bp}
<<echo=false>>=
options(xtable.caption.placement="top", xtable.table.placement="htbp")
options(width=80)
options(SweaveHooks=list(fig=function() par(mgp=c(1.8, 0.6, 0))))
@

\code{Sweave}は，\LaTeX をベースにして，データとそれを処理する\R プログラムとその結果（表\ref{tab}，図\ref{fig}など）を文章に含めることができるシステムです。

以下のようにすれば，成果物が得られます。

<<echo=false>>=
df <- data.frame(x=c(1:5), y=sample(100,5))
<<echo=false, results=tex>>=
library(xtable)
xtable(df, "データフレーム", "tab")
@
\begin{figure}[htbp]
    \begin{center}
<<fig=true, echo=false>>=
plot(df)
@
    \end{center}
    \caption{散布図}
    \label{fig}
\end{figure}
\end{document}