\begin{Schunk}
\begin{Sinput}
> x <- c(-1, 2, 1, 3); y <- c(8, -3, 6, 1)
> labels <- c("Stallone", "Schwartzenegger", "Redford", "Hoffman")
> mycolors <- rainbow(4)
> bdraw()
> points(x, y)
> text(x = x, y = y, labels = labels, col = mycolors, cex = c(1.2, 1.7, 1.3, 1))
\end{Sinput}
\end{Schunk}
