set.seed(123);
plot(x=rnorm(100, sd=1000), y=rnorm(100, sd=1000) ,ylab="", xlab="")
rect(xleft=par("usr")[1]*1.25, ybottom=par("usr")[3]*1.4,
xright=par("usr")[2]*1.1,ytop=par("usr")[4]*1.2,
lwd=5, border="orange", xpd=TRUE)
Run Code Online (Sandbox Code Playgroud)
qplot(x= disp , y = wt , data = mtcars) +
theme(plot.background = element_rect(colour="#CF8057",size=10))
Run Code Online (Sandbox Code Playgroud)