par(bg  = "pink")
plot(1:10)

plot(10:1)