0

Rの単一のウィンドウに表示したい一連の3つの同様のグラフがあります..

これはデータです：

Date Tank Time Female.in.Middle Female.in.R.assoc Female.in.L.assoc R.side.of.divider
117 25-Jun   I3  200           0.0966            0.2721            0.2001            0.0000
120 26-Jun   I3 1030           0.2118            0.5663            0.2212            0.0000
123 27-Jun   I3  200           0.0000            0.0000            0.0000            0.0000
128 28-Jun   I3 1100           0.0237            0.0672            0.1408            0.3289
129 28-Jun   I3  230           0.0683            0.0606            0.2488            0.0000
132 29-Jun   I3  200           0.1823            0.1180            0.6990            0.0000
135  2-Jul   I3  200           0.0000            0.0000            0.0000            0.0000
138  3-Jul   I3 1030           0.0000            0.0000            0.0000            0.0000
    L.side.of.Divider Tank.1 Date.Entered M.L.name Male.L.Length Male.L.Weight M.R.name
117            0.4285     I3       22-Jun  green 2           7.6         14.32   pink 1
120            0.0000     I3       22-Jun  green 2           7.6         14.32   pink 1
123            0.9961     I3       22-Jun  green 2           7.6         14.32   pink 1
128            0.4423     I3       22-Jun  green 2           7.6         14.32   pink 1
129            0.6215     I3       22-Jun  green 2           7.6         14.32   pink 1
132            0.0000     I3       22-Jun  green 2           7.6         14.32   pink 1
135            0.9952     I3       22-Jun  green 2           7.6         14.32   pink 1
138            0.9948     I3       22-Jun  green 2           7.6         14.32   pink 1
    Male.R.Length Male.R.Weight Side.of.Spawn F.Length F.Weight F.name last.female.spawn.date
117           7.7         14.79             L      5.5     5.64     2c                 22-Jun
120           7.7         14.79             L      5.5     5.64     2c                 22-Jun
123           7.7         14.79             L      5.5     5.64     2c                 22-Jun
128           7.7         14.79             L      5.5     5.64     2c                 22-Jun
129           7.7         14.79             L      5.5     5.64     2c                 22-Jun
132           7.7         14.79             L      5.5     5.64     2c                 22-Jun
135           7.7         14.79             L      5.5     5.64     2c                 22-Jun
138           7.7         14.79             L      5.5     5.64     2c                 22-Jun
    spawn.date.in.paradigm  X d.in.p dbs X.1 X.2 X.3
117                  3-Jul 11      3   8  NA  NA  NA
120                  3-Jul 11      4   7  NA  NA  NA
123                  3-Jul 11      5   6  NA  NA  NA
128                  3-Jul 11      6   5  NA  NA  NA
129                  3-Jul 11      6   5  NA  NA  NA
132                  3-Jul 11      7   4  NA  NA  NA
135                  3-Jul 11     10   1  NA  NA  NA
138                  3-Jul 11     11   0  NA  NA  NA

そして、私はこのコードを使用してグラフを作成しています:

d2c<-plot(jd2c$d.in.p, jd2c$L.side.of.Divider, type='l', col='purple', xlab='Days After Entry', ylab='Proportion of Time Spent on Each Side of Divider', main='Female 2c', ylim=c(0,1))
legend('topleft',.8,c('Left', 'Right'),pch=c(.8), col=c('purple','green'))
points(jd2c$d.in.p, jd2c$R.side.of.divider, type='l', col='green')


az2c<-plot(jd2c$d.in.p, jd2c$Female.in.L.assoc, type='l', col='purple', xlab='Days After Entry', ylab='Proportion of Time Spent in Assoc. Zones', main='Female 2c', ylim=c(0,1))
legend('topleft',.8,c('Left', 'Right'),pch=c(.8), col=c('purple','green'))
points(jd2c$d.in.p, jd2c$Female.in.R.assoc, type='l', col='green')


rside2c<-cbind(jd2c$Female.in.R.assoc + jd2c$R.side.of.divider)
lside2c<-cbind(jd2c$Female.in.L.assoc + jd2c$L.side.of.Divider)

side2c<-plot(jd2c$d.in.p, lside2c, type='l', col='purple', xlab='Days After Entry', ylab='Proportion of Time Spent on Each Side (cumulative)', main='Female 2c', ylim=c(0,1))
legend('topleft',.8,c('Left', 'Right'),pch=c(.8), col=c('purple','green'))
points(jd2c$d.in.p, rside2c, type='l', col='green')

3 つのグラフすべてを 1 つのウィンドウに表示するにはどうすればよいですか?

ありがとうございました！

4

3 に答える 3

1

あなたが使用したいでしょうpar：

# Put this before your plots:
par(mfrow=c(3,1))  # your plots appear in one column, three rows,
                   # in one figure.
plot(...)
plot(...)
plot(...)
par(mfrow=c(1,1))  # always a good idea to return it to how it was
                   # afterwards, so later plots aren't affected
于 2012-07-18T14:14:51.167 に答える
0

他の人が で言及parしていますが、プロット領域の位置、サイズ、および形状をより細かく制御したい場合は、この関数mfrowを使用することもできます。layout

于 2012-07-18T16:36:16.050 に答える
0

3 つのグラフをどのように表示するかは明確ではありませんが、簡単な解決策は、グラフの前に ... を付けることです。

par(mfrow = c(1,3))

これで、3 つのグラフすべてが 1 つのウィンドウに表示されます。もちろん、ウィンドウを広くする必要があります。そうしないと、グラフがすべてつぶれてしまいます。?Devices必要な特定の出力を検索する必要があります。画面に表示するだけの場合はX11、Linux またはquartzMac OS X で動作します。たとえば、Mac 通話では...

quartz('my new graph', 15, 5)

これにより、高さの 3 倍の幅で描画するスペースができます。最初のプロット呼び出しを行うたびに、7 インチの寸法で自動的に暗黙的に呼び出されます。

おそらくparヘルプを参照する必要があります。現在の設定を保存し、後で復元することもお勧めします。だから、使用をグラフ化する前に...

opar <- par(mfrow = c(1,3))

そして、あなたのグラフの後

par(opar)

これは、グラフ作成パラメーターに多くの変更を加えた後でも、元に戻す簡単な方法です。

于 2012-07-18T14:32:48.747 に答える