Last Updated on June 8, 2020 by shibatau
授業で日本の平均賃金を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データから、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.