下記のページを参考にさせていただき、Rでベーシックインカムの所得モデルを描きました。
グラフを描いて、多角形やテキストをx軸、y軸で指定して重ねて描きます。
プロットに日本語を表示していますが、Macの場合は人後を表示するのに下の行を加える必要があります。
par(family=”HiraKakuProN-W3″)
I.スクリプト
# ベーシックインカム
# 枠を作成
plot(NA, xlim = c(0, 80), ylim = c(0, 80), ann = FALSE)
# 税と扶助費なし
curve(1*x,from=0, to=80, add=TRUE)
# 手取り
curve(0.5*x+12, add=TRUE, lwd=4)
# 課税前総額
curve(1*x+12, lty=2, from=0, to=80)
# グラフとタイトルと文字
polygon(c(0,0,24), c(0,12,24), col="mistyrose")
polygon(c(24,80,80), c(24,80,52), col="lightcyan")
title(main="ベーシックインカム", xlab="所得", ylab="手取り")
text(70, 58, paste("所得税"))
text(8, 9, paste("生活扶助費"))
text(30, 50, paste("課税前総額\nベーシックインカム12万を含む"))
text(45, 27, paste("手取りライン"))
II.スクリプトの説明
III.Rウィジェットでグラフを作成
プロットで日本語は表示されないので英語にします。
大学のコンピュータ教室ではGoogle Chromeを使ってください。IEではエラーになります。
画面右下のRunをクリックするとグラフが作成されます。矢印でグラフを拡大します。
# Basic Income
# plot frame
plot(NA, xlim = c(0, 80), ylim = c(0, 80), ann = FALSE)
# without any taxes and public assistance
curve(1*x,from=0, to=80, add=TRUE, ann = FALSE)
# net income
curve(0.5*x+12, add=TRUE, lwd=4, ann = FALSE)
# total income
curve(1*x+12, lty=2, from=0, to=80, ann = FALSE)
# plot with texts
polygon(c(0,0,24), c(0,12,24), col="mistyrose")
polygon(c(24,80,80), c(24,80,52), col="lightcyan")
title(main="BASIC INCOME", xlab="INCOME", ylab="NET INCOME")
text(70, 58, paste("income tax"))
text(8, 9, paste("basic income"))
text(30, 50, paste("total income before taxing"))
text(45, 27, paste("net income"))
