あまりにも。。。

> legend(x=par()$usr[2],y=par()$usr[4],legend=colnames(dat),pch=22,lty=0,xjust=-.1
+ ,pt.bg=cm.colors(3),col=1:3,pt.cex=2,x.intersp=2,y.intersp=1.5,title="xpd=TRUE")

プログラムの2行目以降（継続行）が "," で始まるというスタイルは，見たことがない。
-0.1 を -.1 と書くのもいやだなあ。
適切なスペースがないのもひどいなあ。
par の値を取り出すのは，普通は par("width") とか par("user")[2] とかの方がわかりやすい。
小さなことがいろいろ積み重なると，読みにくい（読みたくない）プログラムになる。