Сбросить графические параметры обратно к значениям по умолчанию без использования dev.off()

См. ? пар. Идея состоит в том, что вы сохраняете их такими, какими они были, когда вы их нашли, а затем восстанавливаете:

old.par <- par(mar = c(0, 0, 0, 0))
## do plotting stuff with new settings

Теперь восстановите то, что было до того, как мы изменили mar:

par(old.par)

В RStudio вы можете просто перейти к «Графикам» и выбрать «Удалить графики».

Если вы уже пропустили сохранение параметров по умолчанию при запуске и не хотите перезапускать сеанс, вы можете открыть терминал и запустить R, набрав (обычно) R.

Затем введите:

пар()

Он напечатает все значения по умолчанию.

Вы можете сохранить их в текстовом файле и импортировать в рабочее пространство, в котором вы сейчас работаете.

простая функция, содержащая все значения по умолчанию, может выполнить эту работу:

  reset_par <- function(){
    op <- structure(list(xlog = FALSE, ylog = FALSE, adj = 0.5, ann = TRUE,
                         ask = FALSE, bg = "transparent", bty = "o", cex = 1, 
                         cex.axis = 1, cex.lab = 1, cex.main = 1.2, cex.sub = 1, 
                         col = "black", col.axis = "black", col.lab = "black", 
                         col.main = "black", col.sub = "black", crt = 0, err = 0L, 
                         family = "", fg = "black", fig = c(0, 1, 0, 1), 
                         fin = c(6.99999895833333, 6.99999895833333), font = 1L, 
                         font.axis = 1L, font.lab = 1L, font.main = 2L, 
                         font.sub = 1L, lab = c(5L, 5L, 7L), las = 0L, 
                         lend = "round", lheight = 1, ljoin = "round", lmitre = 10, 
                         lty = "solid", lwd = 1, mai = c(1.02, 0.82, 0.82, 0.42), 
                         mar = c(5.1, 4.1, 4.1, 2.1), mex = 1, mfcol = c(1L, 1L), 
                         mfg = c(1L, 1L, 1L,1L), mfrow = c(1L, 1L), 
                         mgp = c(3, 1, 0), mkh = 0.001, new = FALSE, 
                         oma = c(0, 0, 0, 0), omd = c(0, 1, 0, 1), 
                         omi = c(0, 0, 0,0), pch = 1L, 
                         pin = c(5.75999895833333, 5.15999895833333),
                         plt = c(0.117142874574832, 0.939999991071427, 
                                 0.145714307397962, 0.882857125425167), 
                         ps = 12L, pty = "m", smo = 1, srt = 0, tck = NA_real_, 
                         tcl = -0.5, usr = c(0.568, 1.432, 0.568, 1.432), 
                         xaxp = c(0.6, 1.4, 4), xaxs = "r", xaxt = "s", 
                         xpd = FALSE, yaxp = c(0.6, 1.4, 4), yaxs = "r", 
                         yaxt = "s", ylbias = 0.2), 
                         .Names = c("xlog", "ylog", "adj", "ann", "ask", "bg", 
                         "bty", "cex", "cex.axis", "cex.lab", "cex.main", "cex.sub", 
                         "col", "col.axis", "col.lab", "col.main", "col.sub", "crt", 
                         "err", "family", "fg", "fig", "fin", "font", "font.axis", 
                         "font.lab", "font.main", "font.sub", "lab", "las", "lend", 
                         "lheight", "ljoin", "lmitre", "lty", "lwd", "mai", "mar", 
                         "mex", "mfcol", "mfg", "mfrow", "mgp", "mkh", "new", "oma",
                         "omd", "omi", "pch", "pin", "plt", "ps", "pty", "smo", 
                         "srt", "tck", "tcl", "usr", "xaxp", "xaxs", "xaxt", "xpd", 
                         "yaxp", "yaxs", "yaxt", "ylbias"))
  par(op)
  }

назовите это, используя:

reset_par()

Для полей ?par предоставляет значение по умолчанию c(5,4,4,2)+0,1. Следующее должно сбросить поля до значений по умолчанию.

par(mar=c(5,4,4,2)+0.1)

Канонический ответ был только в комментарии (от Cookie), и его можно было легко пропустить:

Получить текущие параметры/параметры по умолчанию

old.par <- par(no.readonly = TRUE)

Установите их в свой код, например.

par(mai=c(0,0,0,0))

И тогда вы можете сбросить паритеты с помощью

par(old.par)

Или в функции

on.exit(par(old.par))