yutakashino

日本の少子化

五月雨的に書き足しながら日本の少子化について、柏野が理解していることを以下にまとめる。

結論

長くなりそうなので結論から先に述べると、1970年代から始まる日本の少子化問題は、少子化を防ぐために漠然と子供を持つように宣伝したり、経済的なインセンティブ政策を実施したりして、幸運にも少人数の子どもを持つ家庭が増えたとしても、解決しない。そうではなく、以下の前提条件

• 日本人女性から生まれた子どもが日本人である、という日本人の定義を変えない

yutakashino

#!/usr/bin/python
#coding:utf-8

import bottlenose
AMAZON_ACCESS_KEY_ID = "AKIA..............."
AMAZON_SECRET_KEY = "NC.............................."
AMAZON_ASSOC_TAG = "yutakashino-22"

amazon = bottlenose.Amazon(AMAZON_ACCESS_KEY_ID, AMAZON_SECRET_KEY, AMAZON_ASSOC_TAG, Region='JP')
res = amazon.ItemLookup(ItemId="4588120824", ResponseGroup="Images",SearchIndex="Books", IdType="ISBN",Style="http://xml2json-xslt.googlecode.com/svn/trunk/xml2json.xslt")

yutakashino

library(ggplot2)
setwd("/Users/yutakashino/Dropbox/sandboxDrop/@IT/temp/")
afg<-read.csv("afg.csv",stringsAsFactors=FALSE)

colnames(afg)<-c("ReportKey","DateOccurred","Type","Category","TrackingNumber","Title","Summary","Region","AttackOn",
    "ComplexAttack","ReportingUnit","UnitName","TypeOfUnit","FriendlyWIA","FriendlyKIA","HostNationWIA","HostNationKIA",
    "CivilianWIA","CivilianKIA","EnemyWIA","EnemyKIA","EnemyDetained","MGRS","Latitude","Longitude","OriginatorGroup",
    "UpdatedByGroup","CCIR","Sigact","Affiliation","DColor","Classification")

afg$DateOccurred <- as.Date(afg$DateOccurred)

yutakashino

library(ggplot2)
library(WDI)
gdp <- WDI(country=c("US","JP","CN"), indicator="NY.GDP.MKTP.CD", start=1960, end=2008)
gdppercapita <- WDI(country=c("US","JP","CN"), indicator="NY.GDP.PCAP.CD", start=1960, end=2008)
gdpgrowth <- WDI(country=c("US","JP","CN"), indicator="NY.GDP.MKTP.KD.ZG", start=1960, end=2008)
ggplot(gdp, aes(year, NY.GDP.MKTP.CD, color=country))+geom_line(stat="identity")+theme_bw()+xlab("Year")+opts(title="GDP (current US$)")+ylab("")
ggsave(file='gdp.png')
ggplot(gdppercapita, aes(year, NY.GDP.PCAP.CD, color=country))+geom_line(stat="identity")+theme_bw()+xlab("Year")+opts(title="GDP per capita (current US$)")+ylab("")
ggsave(file='gdppercapita.png')
ggplot(gdpgrowth, aes(year, NY.GDP.MKTP.KD.ZG, color=country))+geom_line(stat="identity")+theme_bw()+xlab("Year")+opts(title="GDP growth (annual %)")+ylab("")