Economy: OECD8カ国の平均賃金の変遷, r

授業で日本の平均賃金をOECD各国のそれと比較します。

下のOECDの統計サイトでグラフを描くのにFlashの使用を求められました。

面倒なので、CSVファイルをダウンロードして、Rでグラフを描きました。

Webページでは列名に年がならぶ横長のデータですが、CSVファイルは、プログラムで扱いやすい”Time”列に年を配置した縦長のデータです。

当たり前と言えば、当たり前ですが、それが当たり前でないの日本の現状です。

 

OECD.Stat

 

スクリプト

 

# import a library
library(tidyverse)
# load the data
df = read_csv("AV_AN_WAGE_07062020142345260.csv")
# subset the data
df_usDollar8<- df %>%
  select("Country", "SERIES", "Time", "Unit Code", "Unit", "Value") %>% 
  filter((Country %in% c("Australia", "Canada", "France", "Germany", 
                         "Italy",  "United Kingdom", "United States", "Japan") 
          & SERIES == "USDPPP"))
# create a multiple line plot
p = ggplot(data=df_usDollar8, aes(x=Time, y=Value, color = Country)) +
  geom_line() +
  geom_point() +
  geom_line(aes(size = Country)) +
  scale_size_manual(values = c("Australia" =0.5, "Canada"=0.5, "France"=0.5, "Germany"=0.5, 
                               "Italy"=0.5,  "United Kingdom"=0.5, "United States"=1.5, "Japan"=1.5))
p + ggtitle("Average annual wages", subtitle = "8 countries in the OECD")

 

CSVデータから、8カ国を選び出し、グラフにしました。みやすいように、米国と日本のラインを太くしました。

日本とイタリアが低迷していることがわかります。

 

OECDに加盟する8カ国のドル建て実質賃金の変遷

 

データについての説明

各国の平均賃金を購買力平価(purchasing power parity)で比較しています。

Key statistical concept
This dataset contains data on average annual wages per full-time and full-year equivalent employee in the total economy. Average annual wages per full-time equivalent dependent employee are obtained by dividing the national-accounts-based total wage bill by the average number of employees in the total economy, which is then multiplied by the ratio of average usual weekly hours per full-time employee to average usually weekly hours for all employees. For more details, see: http://www.oecd.org/els/oecd-employment-outlook-19991266.htm and http://www.oecd.org/employment/emp/onlineoecdemploymentdatabase.htm

The data, from 1990 to 2018 are available in :

Current prices in NCU
in 2018 constant prices and NCU
in 2018 USD PPPs and 2018 constant prices
NCU: National currency units

For further details on these estimates, please see http://www.oecd.org/els/emp/AVERAGE_WAGES.pdf

Click to collapse Aggregation and consolidation
Average wages are converted in USD PPPs using 2018 USD PPPs for private consumption and are deflated by a price deflator for private final consumption expenditures in 2018 prices.

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.