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












# ベーシックインカム
# 枠を作成
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("手取りライン"))









大学のコンピュータ教室ではGoogle Chromeを使ってください。IEではエラーになります。




# 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.