Macro Data

chooseCRANmirror(graphics = TRUE, ind=1)
knitr::opts_chunk$set(echo = TRUE)
setwd("~/Desktop")
pr=read.csv("productivity.csv")
wage=read.csv("wage.csv")
install.packages("dplyr")

## 
## The downloaded binary packages are in
##  /var/folders/tg/ndf9pfq972n0nl0yrwftf9rh0000gn/T//RtmpVI0WQi/downloaded_packages

library(dplyr)
install.packages("car")

## 
## The downloaded binary packages are in
##  /var/folders/tg/ndf9pfq972n0nl0yrwftf9rh0000gn/T//RtmpVI0WQi/downloaded_packages

library(car)
pr=pr%>%inner_join(wage,by="year")
install.packages("ggplot2")

## 
## The downloaded binary packages are in
##  /var/folders/tg/ndf9pfq972n0nl0yrwftf9rh0000gn/T//RtmpVI0WQi/downloaded_packages

library(ggplot2)
# labour productivity against real wage
ggplot(pr, aes(x=Wage_per_hour, y=GDP_per_hour_worked))+geom_point(shape=20,size=2,color='light blue')+geom_smooth(method=lm,color=' blue')+theme_minimal()+ggtitle("labour productivity against real wage")

# real wage against labour productivity
ggplot(pr, aes(x=GDP_per_hour_worked, y=Wage_per_hour))+geom_point(shape=20,size=2,color='light blue')+geom_smooth(method=lm,color=' blue')+theme_minimal()+ggtitle("real wage against labour productivity")