apply(X , 1 or 2 , function ) 

par("bg=blue4")
plot(table(rpois(100, 5)), type = "h", col = "red", lwd = 10,
     main = "rpois(100, lambda = 5)")

type="h"

col="red"

lwd=10

main = "rpois(100, lambda = 5)"

par(bg="gold")
attach(mtcars)
plot(wt, mpg, main="Scatterplot Example",
   xlab="Car Weight ", ylab="Miles Per Gallon ", pch=20) 

mtcars

xlab=" " ,ylab=" "

pch=" "

par(bg="gold")
n = 17

theta = seq(0, 2 * pi, length = n + 1)[1:n]

x = sin(theta)

y = cos(theta)

v1 = rep(1:n, n)

v2 = rep(1:n, rep(n, n))

plot.new()

plot.window(xlim = c(-1, 1),
ylim = c(-1, 1), asp = 1)

segments(x[v1], y[v1], x[v2], y[v2])