功能退出

如果必须分配全局变量，on.exit() 函数便于变量清理。

某些参数，尤其是图形参数，只能全局设置。创建更专业的图时，这个小功能很常见。

new_plot <- function(...) {
     
     old_pars <- par(mar = c(5,4,4,2) + .1, mfrow = c(1,1))
     on.exit(par(old_pars))
     plot(...)
 }