ラベルつき散布図。
png('graph.png', width=720, height=1440)
plot(dat$total, dat$rate, log="xy", ann=F, pch=16, col=4)
abline(h=median(dat$rate))
abline(v=median(dat$total))
par(cex=0.75)
text(9095, 0.91, '涼宮ハルヒの憂鬱', adj=c(1,1))
dev.off()こんな感じ。Y軸がやたらと大きいのはMUSASHIに言ってくれｗｗ
