Economy: 一人当たりGDP at pppのランキング, R, ggplot

購買力平価の一人当たりのGDPの国別順位です。データは次にあります。

 

https://www.cia.gov/library/publications/the-world-factbook/rankorder/2004rank.html

 

Rでグラフを作成します。。いろいろやり方はあると思いますが、次のようにしました。

 

画面左上にdownload oad dataがありますが、これをクリックするとrawデータのページが開きます。これをコピーしてエクセルに貼ります。普通にペースとして、データ>区切り位置、で固定値で区切るときれいにセルに入ります。$記号と桁区切りはセルのフォーマットを標準にするとなくなります。英語版を使っているので呼び方が違うかもしれませんが、とこかくExcelで簡単にクリーンばデータになります。

名前をつけて保存、でCSV UTF=8で保存します。

Rでデータを読み込んでグラフを描きます。ちなみに、データファイルのパス(住所)はMacならファイルを右クリックしてoptionを押すとリストにパスのコピーの項目が現れます。

ggolotで普通に描くと次のようになりました。

 

 

x軸のラベルを縦にしたいし、グラフの並びを降順にしたいですねえ。

ネットで調べます。データの違いでいろいろな場合があるので、本はあまり役に立ちません。日本語では情報がなかったり、古かったりするので英語で調べます。日本語なら質問サイトで聞けば答えてもらえるでしょうが、はじめは聞き方がわからなくて質問するのも一苦労です。

英語だと意外に簡単に見つかりました。で、次のようになりました。

 

 

きれいにできました。

 

そもそも日本が43位と低いのでグラフが見えにくんです。5位までなら降順にする必要もなかったです。

2位は中東の情報を英語で得られる貴重なメディアaljazeeraのある国カタールです。ここは産油国で人口も少ないので豊かなんです。税金もないとか。しかし、移民の格差が非常に大きいそうです。

GDP at puchasing power parityについて、CIA The World Fact Bookに次の説明がありました。具体的にどう計算されているか調べないとわかりませんが、要は、米国で買うものの価格を基準として各国のGDP計算するということですね。

そうすると、米国が一人当たり年間$59,500生産するとして、日本が米国と同じ商品を米国価格で生産するとしたら一人当たり年間$42,800となって、暮らしのレベルとして72%ぐらいだねということになります。

それにしても、米国の同等製品だといくらということを決めて割り振るのですから、実際の計算はそうとうややこしいように思いますが、どうなのでしょう?

 

GDP (purchasing power parity)

This entry gives the gross domestic product (GDP) or value of all final goods and services produced within a nation in a given year. A nation’s GDP at purchasing power parity (PPP) exchange rates is the sum value of all goods and services produced in the country valued at prices prevailing in the United States in the year noted. This is the measure most economists prefer when looking at per-capita welfare and when comparing living conditions or use of resources across countries. The measure is difficult to compute, as a US dollar value has to be assigned to all goods and services in the country regardless of whether these goods and services have a direct equivalent in the United States (for example, the value of an ox-cart or non-US military equipment); as a result, PPP estimates for some countries are based on a small and sometimes different set of goods and services. In addition, many countries do not formally participate in the World Bank’s PPP project that calculates these measures, so the resulting GDP estimates for these countries may lack precision. For many developing countries, PPP-based GDP measures are multiples of the official exchange rate (OER) measure. The differences between the OER- and PPP-denominated GDP values for most of the wealthy industrialized countries are generally much smaller.

source: https://www.cia.gov/library/publications/the-world-factbook/docs/notesanddefs.html#208

 

中国とネパールとベトナムの順位を見つけるのは、country列で国名文字列を探します。

 

# find the ranks of China, Nepal, Vietnam
index <- c("China","Nepal","Vietnam")
three <- d00[d00$country %in% index,]
three

 

結果は

 

スクリプト

library(ggplot2)
# read the data without header
d00 <- read.csv("https://pastebin.com/raw/SS5GgxyZ", sep=",", header = F)
# change column names
colnames(d00) <- c("rank", "country", "gdp.per.capita")
# find the rank of Japan
index_japan <- c("Japan")
japan <- d00[d00$country %in% index_japan,]
japan
# find the ranks of China, Nepal, Vietnam
index <- c("China","Nepal","Vietnam")
three <- d00[d00$country %in% index,]
three
# get the subset
data45 <- d00[1:45,2:3]
# create a bar plot
ggplot(data45, aes(x = reorder(country, -gdp.per.capita), y = gdp.per.capita, fill = country)) + 
  geom_bar(stat = "identity") +
  theme(axis.text.x = element_text(angle = 90, hjust = 1))

Please follow and like us:
error

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.