授業で日本の平均賃金をOECD各国のそれと比較します。
下のOECDの統計サイトでグラフを描くのにFlashの使用を求められました。
面倒なので、CSVファイルをダウンロードして、Rでグラフを描きました。
Webページでは列名に年がならぶ横長のデータですが、CSVファイルは、プログラムで扱いやすい”Time”列に年を配置した縦長のデータです。
当たり前と言えば、当たり前ですが、それが当たり前でないの日本の現状です。
スクリプト
# 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.
