Temporarily change graphics parameters.
with_par(new, code, no.readonly = FALSE) local_par( .new = list(), ..., no.readonly = FALSE, .local_envir = parent.frame() )
new, .new |
|
---|---|
code |
|
no.readonly |
|
... | Additional graphics parameters and their values. |
.local_envir |
|
[any]
The results of the evaluation of the code
argument.
old <- par("col" = "black") # This will be in red with_par(list(col = "red", pch = 19), plot(mtcars$hp, mtcars$wt) )