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

Question

背景

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

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

Answer 1

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

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

Comments

[raichu]

ご回答ありがとうございました。試してみます！