Rの凡例を枠外に付けるとき、余白を自動調整したい

背景

Rのlegend関数で凡例を付けるとき、余白の調整の仕方について質問させてください。

legend関数では、par()$usr[2], par()$usr[4]と指定することで、
凡例を枠外の右上に付けることができると思います。

ただこの場合、先にmarなどで余白を予め用意しておく必要があります。
特に、枠外の右上に付ける場合は、marの4つ目に渡す数字を適切に設定しないといけません。

##質問
そこで質問なのですが、凡例のcexと最長文字数から、最適な余白数を推定することはできるのでしょうか？

例えば、par()$usr[2], par()$usr[4]と指定して、凡例を枠外の右上に付けるとします。

legendのcexが1.5、最長文字数が8だったとき、mar=c(a,b,c,d)に渡すdの値としてちょうどよい値を
推定するような処理として可能なものがあれば、教えて欲しいです。

なんとなく10くらいかな？と適当にあてて、余白が取りすぎてきたら少し下げる、みたいな処理を、自動化できるといいなと思い質問させていただきました。

どうぞよろしくお願いします。

行動規範の内容に同意します

回答1件

ベストアンサー

strwidth関数で文字列の長さを求められます。

R
1for (i in 1:10) {
2  a<- sample(seq(1,2,by=0.1),1)
3  b1<-paste(sample(letters,sample(1:15,1),replace=T),collapse="")
4  b2<-paste(sample(letters,sample(1:15,1),replace=T),collapse="")
5  b3<-paste(sample(letters,sample(1:15,1),replace=T),collapse="")
6  c<-max(strwidth(b1,units="inches",cex=a),
7         strwidth(b2,units="inches",cex=a),
8         strwidth(b3,units="inches",cex=a))
9  png(paste(i,".png",sep=""), width = 1000, height = 1000)
10  par(xpd=T,mai=c(a,a,a*0.1,c+a*0.5),cex=a)
11  plot(iris[,1],iris[,2],col=iris[,5],pch=19)
12  legend(par()$usr[2], par()$usr[4],legend=c(b1,b2,b3),col=1:3,pch=19)
13  dev.off()
14}