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

Last Updated on June 8, 2020 by shibatau











# import a library
# 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")








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

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

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.