web-dev-qa-db-ja.com

dev.off（）を使用せずに、グラフィカルパラメータをデフォルト値にリセットします。

マージン、方向などなど...

dev.off()は機能しません。私はよく、RStudioを組み込みのグラフィックデバイスとともに使用しています。次に、デフォルトのRStudioグラフィックデバイスで、または新しいウィンドウでX11()を呼び出した場合に、プロットする関数をプロットします。

この動作は、dev.off()では機能しません。プロット関数が常にdev.off()を呼び出す場合、X11()ウィンドウを誤って閉じて、代わりにRStudioデバイスにプロットする可能性があります。常にdev.off()に続いてX11()を呼び出すと、RStudioデバイスでプロットする場合でも、常に新しいウィンドウにプロットされます。

通常、それはgetOption("device")で解決できますが、常にRStudioGDを返します。

rrstudio
50
Cookie

？parを参照してください。アイデアは、それらを見つけたときにそれらを保存し、復元することです：

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

marを変更する前の状態に戻します：

par(old.par)
45
mdsumner

RStudioでは、[プロット]に移動して[プロットの削除]を選択するだけです。

25
rinzy kutex

起動時にデフォルトパラメータを保存し忘れていて、セッションを再起動したくない場合は、ターミナルを開いて（通常）Rと入力することでRを実行できます。

次に入力：

パー（）

すべてのデフォルト値が印刷されます。

テキストファイルに保存して、現在作業中のワークスペースにインポートできます。

10
Umut Eser

すべてのデフォルトを含む単純な関数がジョブを実行できます：

_  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()

5
Farid Cheraghi

正規の回答は（Cookieによる）コメントのみであり、簡単に見落とされる可能性があります。

現在/デフォルトのパラメーターを取得する

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

コードにそれらを設定します。

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

そして、あなたはでパーをリセットすることができます

par(old.par)

または、関数内

on.exit(par(old.par))
1
Robert Hijmans

マージンの場合、parはc（5,4,4,2）+0.1のデフォルト値を提供します。以下は、マージンをデフォルト値にリセットする必要があります。

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