Lecture: ベーシックインカムのグラフを作成, R

下記のページを参考にさせていただき、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"))

 

 

About shibatau

I was born and grown up in Kyoto. I studied western philosophy at the University and specialized in analytic philosophy, especially Ludwig Wittgenstein at the postgraduate school. I'm interested in new technology, especially machine learning and have been learning R language for two years and began to learn Python last summer. Listening toParamore, Sia, Amazarashi and MIyuki Nakajima. Favorite movies I've recently seen: "FREEHELD". Favorite actors and actresses: Anthony Hopkins, Denzel Washington, Ellen Page, Meryl Streep, Mia Wasikowska and Robert DeNiro. Favorite books: Fyodor Mikhailovich Dostoyevsky, "The Karamazov Brothers", Shinran, "Lamentations of Divergences". Favorite phrase: Salvation by Faith. Twitter: @shibatau

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.