トップ
新規
一覧
単語検索
最終更新
ヘルプ
ログイン
アールメカブ
R_Plot_Marginの処理
をテンプレートにして作成
開始行:
[[Rの備忘録]]
# 『R の基礎とプログラミング技法』p.169
# 四つの外部マージンを3 行分の高さに設定
par(oma = rep(3, 4), bg = "gray")
plot(c(0, 1), c(0, 1), type="n", ann = FALSE, axes = FAL...
par(xpd = TRUE) # 作図領域に加工を加える
# 作図領域を黄色に塗る
rect(par()$usr[1] - par()$mai[2], par()$usr[3] - par()$m...
par()$usr[2] + par()$mai[4], par()$usr[4] + par()$mai[3],
col = "yellow", border = NA)
box("figure") # 作図領域全体を黒枠で囲む
par(xpd = FALSE) # 描画の対象をプロット領域に戻す
# プロット領域を白く塗りつぶす
rect(par()$usr[1], par()$usr[3],
par()$usr[2], par()$usr[4],
col = "white", border = NA)
box("plot", lty = "dashed", col = "green") # プロット領...
text(.5, .5, "plot region", cex = 1.6)
# 四つの内部マージンに描画
mtext("figure region", side = 3, line = 2, adj = 1, cex ...
# line = 2 は内部マージン上(side=3) の 2 行目の高さに描く...
# adj は 0 なら左端，1 なら右端に描画．
for (i in 1:4)
mtext(paste("inner margin", i), side = i,
las = 0, line = 1, outer = FALSE)
# 四つの外部マージンに描画# outer = TRUE
for (i in 1:4)
mtext(paste("outer margin", i), side = i,
las = 0, line = 1, outer = TRUE)
# 外部マージンにラベルを付ける
mtext("device region", side=3, line=2, outer = TRUE, adj...
# 最後にプロット全体を赤い枠で囲む
box("outer", col = "red", lwd = 3)
# axis(1) # これまで作成した図と重なるが，x 軸の目盛を描く
# axis(2) # y 軸の目盛を描く
dev.off()
ここではoma を使って外部マージン(outer margin) を行の高さ...
終了行:
[[Rの備忘録]]
# 『R の基礎とプログラミング技法』p.169
# 四つの外部マージンを3 行分の高さに設定
par(oma = rep(3, 4), bg = "gray")
plot(c(0, 1), c(0, 1), type="n", ann = FALSE, axes = FAL...
par(xpd = TRUE) # 作図領域に加工を加える
# 作図領域を黄色に塗る
rect(par()$usr[1] - par()$mai[2], par()$usr[3] - par()$m...
par()$usr[2] + par()$mai[4], par()$usr[4] + par()$mai[3],
col = "yellow", border = NA)
box("figure") # 作図領域全体を黒枠で囲む
par(xpd = FALSE) # 描画の対象をプロット領域に戻す
# プロット領域を白く塗りつぶす
rect(par()$usr[1], par()$usr[3],
par()$usr[2], par()$usr[4],
col = "white", border = NA)
box("plot", lty = "dashed", col = "green") # プロット領...
text(.5, .5, "plot region", cex = 1.6)
# 四つの内部マージンに描画
mtext("figure region", side = 3, line = 2, adj = 1, cex ...
# line = 2 は内部マージン上(side=3) の 2 行目の高さに描く...
# adj は 0 なら左端，1 なら右端に描画．
for (i in 1:4)
mtext(paste("inner margin", i), side = i,
las = 0, line = 1, outer = FALSE)
# 四つの外部マージンに描画# outer = TRUE
for (i in 1:4)
mtext(paste("outer margin", i), side = i,
las = 0, line = 1, outer = TRUE)
# 外部マージンにラベルを付ける
mtext("device region", side=3, line=2, outer = TRUE, adj...
# 最後にプロット全体を赤い枠で囲む
box("outer", col = "red", lwd = 3)
# axis(1) # これまで作成した図と重なるが，x 軸の目盛を描く
# axis(2) # y 軸の目盛を描く
dev.off()
ここではoma を使って外部マージン(outer margin) を行の高さ...
ページ名:
