2

20のプロットを描画し、各プロットに凡例を水平に配置する必要があります。

最初のプロットに次のコマンドを実行しました。

plot(x=1:4,y=1:4)
legend("bottom",legend = c("a","b","c","d"),horiz=TRUE,text.font=2,cex=0.64)

次に、2番目のプロットで試しました：

plot(x=1:2,y=1:2)
legend("bottom",legend = c("a","b"),horiz=TRUE,text.font=2,cex=0.64)

しかし、凡例引数に渡される文字ベクトルのサイズが異なるため、凡例のサイズが異なります。

凡例のサイズが異なる非常に多くの異なるプロットをプロットする必要があるため、自動化された方法でプロットしたいと思います。

すべてのプロットの凡例のサイズを修正し、それをグラフのサイズに合わせることができるこれを行う方法はありますか？

4

1 に答える 1

4

par(cex=.64)最初は十分なはずです

op <- par(cex=.64)  # this fix the legend size for all plots
plot(x=1:4,y=1:4)
legend("bottom",legend = c("a","b","c","d"),horiz=TRUE,text.font=2) # no need to set cex anymore
plot(x=1:2,y=1:2)
legend("bottom",legend = c("a","b"),horiz=TRUE,text.font=2)
par(op) # At end of plotting, reset to previous settings
于 2012-10-08T09:16:23.677 に答える