Worldwide population expected to exceed seven billion in 2011

YouTube の National Geographic Channel のビデオによると、2011年中に世界の人口は70億人に到達するらしい。

ということで、過去、未来の世界人口を可視化。

10000 BC to 1950 AC

1950 AC to 2050AC

Program

グラフは ggplot2 で作成

# 10000 BC - 1950 AC
past_data <- read.csv('past-data.txt')
head(past_data)
    year     estimator population
1 -10000 Summary.Upper          1
2  -8000 Summary.Upper          5
3  -6500 Summary.Upper          5
4  -5000 Summary.Upper          5
5  -4000 Summary.Upper          7
6  -3000 Summary.Upper         14
p <- ggplot(past_data, aes(color=estimator, x=year, y=population))
# line
p + geom_path() + opts(title='World Population(10000 BC to 1950 AD)')

# facet
p  + geom_path() + facet_wrap(~estimator)

# 1950-2050
recent_data <- read.csv('recent-data.txt')
p <- ggplot(recent_data, aes(x=year, y=population))
p + geom_path() + opts(title='World Population(1950-2050)')

Resouce

Advertisements

Leave a comment

Filed under health

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s