emobile の料金プランを比較してみる

GNU R emobile

明日28日から emobile の新しい料金プラン「スーパーライトデータプラン」がスタートするようですね．私は現在，ライトデータプランに契約していて，今月末まで無料キャンペーンの対象になっています．emobile は，プランの変更は自由にできるのでユーザフレンドリーです．しかし，料金プラン間の差がよく分かりにくいですよね．emobile のサイトの説明を読んでも直感的ではありません．こういうのはグラフ化して比較すべきでしょう．

ということで，R を使ってグラフを描いてみました．
(追記:2008-03-28 02:29) otsune さんがコメントでウィンドウのスナップショットを撮る方法を教えてくれたので，画像を更新しました．otsune さんありがとうございます．


こうしてみると，各プランの違いが一目瞭然ですね．新しいスーパーライトデータプランは，20MB も通信しないうちにデータプランと同じ額になるんですね．ってことは，スーパーライトデータプランは，毎月使うわけじゃないけど，使うときはかなり使う人向けなんでしょうね．

私がいま契約しているしているライトデータプランは，50MB も通信しないうちにデータプランの金額を越えてしまいますね．50MB って結構少ない気がするんですよね．だから4/10になったら早速スーパーライトデータプランに乗り換えようと思います．

ギガデータプランってどうなんでしょう？約35MB〜約1Gの間であれば一番お得なんですが，ちょうどこの区間に収まることってあるのかなぁ・・・私の場合，毎週3回非常勤講師があり，その勤務先と移動中に使うことが多いはずです．とりあえずは，スーパーライトデータプランで様子を見ようと思います．

あ，上のグラフを作るために使用した R のソースを以下に示しますね．

lines.emobile.plan <- function (base, free_pkt, sup, cost, color="black") {
	pkt = 128
	x <- c(0, free_pkt, free_pkt + (sup - base) / cost, 1e+10)
	x <- (x * pkt) / 1024**2
	y <- c(base, base, sup, sup)
	lines(x=x, y=y, col=color, lwd=2)
}

lines.emobile.plan.all <- function () {
	lines.emobile.plan(5980, 20000000,  5980, 0,      rgb(0.863, 0.094, 0.125))
	lines.emobile.plan(4980,  8388700, 10980, 0.0105, rgb(0,     0.502, 0.776))
	lines.emobile.plan(2980,    93400,  6480, 0.0105, rgb(0.988, 0.722, 0.078))
	lines.emobile.plan(2000,    23825,  5980, 0.042,  rgb(0,     0.604, 0.353))

	legend(0, 11000,
	       c("データ", "ギガデータ", "ライトデータ", "スーパーライトデータ"),
	       col=c(rgb(0.863, 0.094, 0.125),
	             rgb(0,     0.502, 0.776),
	             rgb(0.988, 0.722, 0.078),
	             rgb(0,     0.604, 0.353)),
	       lty=c(1, 1, 1, 1), lwd=c(2, 2, 2, 2))
}

#png(filename="emobile.png", width=480, height=480, pointsize=14)
quartz(width=6, height=6, pointsize=14)
plot(NA, xlim=c(0, 1200), ylim=c(2000, 11000),
     xlab="通信量 [MB]", ylab="料金 [円]",
     main="E-mobile の料金プランを比較")
lines.emobile.plan.all()
#dev.off()

#png(filename="emobile-scale.png", width=480, height=480, pointsize=14)
quartz(width=6, height=6, pointsize=14)
plot(NA, xlim=c(0, 100), ylim=c(2000, 11000),
     xlab="通信量 [MB]", ylab="料金 [円]",
     main="E-mobile の料金プランを比較 (拡大)")
lines.emobile.plan.all()
#dev.off()