あの散布図、結構面白いなあ。回帰直線と傾きが直角になる回帰直線も求めて、水平に座標変換して、てきとうにスケーリングして、メジャー/マイナー、一般/オタ 向けアニメという区分に分けられそう。 で > d=read.table("r.data", header=TRUE) > d1=data.fr…