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

Last Updated on June 8, 2020 by shibatau

授業で日本の平均賃金を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データから、８カ国を選び出し、グラフにしました。みやすいように、米国と日本のラインを太くしました。

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

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

データについての説明

各国の平均賃金を購買力平価（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.