3

1 つのデバイスで 2 つのプロットを並べて描画したいと考えています。split.screen扱いやすいので使っています。でも、split.screen()画面を均等に分割しているようです。

私の場合、右の列を少し狭くしたいと思います。これは、軸ラベル を省略したためです。これにより、右のプロットが左のプロットよりも少し広くなります。

#install.packages("TeachingDemos", dependencies=TRUE)
library(package="TeachingDemos")
# ***********************************************************
#source("subplot_new.R.txt")
# ***********************************************************
# data for all 4 plots
dx = c(1:10)
dy = c(10:1)


toPDF = T


if(toPDF) {
  pdf(file="test.pdf", width=10, height=5)
}
# split the screen into two columns
close.screen(all.screens=T)
split.screen(figs=c(1,2))

# go to screen 1
# ***********************************************************
screen(1)
par(mar=c(4,4,0.1,0.1), las=1)
plot(x = dx, y = dy)


# determine coordinates of subplot region:
x_left_right = grconvertX(c(0,0.5), from='npc')
y_bottom_top = grconvertY(c(0,0.5), from='npc')
# draw rectangle
rect(
  xleft     = x_left_right[1]
  , xright  = x_left_right[2]
  , ybottom = y_bottom_top[1]
  , ytop    = y_bottom_top[2]
  , col = "#efefef"
)
# add a subplot in green
subplot(
  fun={
    plot(x = dx, y = dy, ann = F)
  }
  , type = "fig"
  , x = x_left_right
  , y = y_bottom_top
  , pars = list(
    fg = "green"
    , mar = c(2,2,0,0)
    )
)

# go to screen 2
# ***********************************************************
screen(2)
par(mar=c(4,1,0.1,0.1), las=1)
plot(x = dx, y = dy, yaxt="n")
axis(side=2, labels=F)

# determine coordinates of subplot region:
x_left_right = grconvertX(c(0.6,1), from='npc')
y_bottom_top = grconvertY(c(0.6,1), from='npc')
# draw rectangle
rect(
  xleft     = x_left_right[1]
  , xright  = x_left_right[2]
  , ybottom = y_bottom_top[1]
  , ytop    = y_bottom_top[2]
  , col = "#efefef"
)
# add a subplot in blue
subplot(
  fun={
    plot(x = dx, y = dy, ann = F)
  }
  , type = "fig"
  , x = x_left_right
  , y = y_bottom_top
  , pars = list(fg = "blue", mar = c(2,2,0,0))
)

if(toPDF) {
  dev.off()
}

TeachinDomes パッケージの subplot コマンドを使用する必要があるため、うまくいくと思いlayoutましたが、おそらく私の場合はそうではありません。

split.screen各列が画面全体から取得する比率を設定できるようにするパッケージはありますか? または、split.screen パッケージを操作してタスクを実行することは可能ですか?

白い余白を追加せずに、2 つのプロットを同じサイズにしたいだけです。

4

1 に答える 1

10

split.screen実際、非常に柔軟で、画面のサイズと位置を自由に制御できます。必要なのは、各行が左、右、上、下のエッジの相対位置を指定する N 行 4 列の行列をフィードすることだけです。

詳細については、を参照?split.screenしてください。

split.screen(matrix(c(0,.7,  .7,1,  0,0,  1,1), ncol=4))
screen(1)
plot(1, 1)
split.screen(matrix(c(0,0,  1,1,  0,.7,  .4,1), ncol=4), screen=2)
screen(3)
plot(2,2)
screen(4)
plot(3,3)

ここに画像の説明を入力

このようにつまずくこともできます。

split.screen(matrix(c(0:2,  4:6,  0:2,  4:6)/6, ncol=4))
screen(1)
plot(1,1)
screen(2)
plot(2,2)
screen(3)
plot(3,3)

ここに画像の説明を入力

于 2013-07-09T16:40:28.417 に答える