G7 since 1950
Ayumu Tanaka
2022-06-06
library(readxl)
pwt1950 <- read_excel("C:/Users/Public/pwt1950.xlsx")
plot(pwt1950$year,pwt1950$percapitaGDP)
plot(pwt1950$year,pwt1950$percapitaGDP,type = "o")
plot(pwt1950$year,pwt1950$percapitaGDP,type = "l")
jpn<-subset(pwt1950,countrycode=="JPN")
plot(jpn$year,jpn$percapitaGDP,type = "o")