\begin{Schunk}
\begin{Sinput}
 legend("top", legend=c("J.Kerry","G.W.Bush"), fill=gray.colors(2),bg="white")
\end{Sinput}
\end{Schunk}
