Effect of the crisis on income in Italy

Data source : The World Wealth and Income Database

Data loading and preparation

myFile <- paste(getwd(), "data/itincomes.csv", sep="/")
myData <- read.csv(myFile, header=TRUE, sep=";", dec=",")
names(myData) <- gsub("\\.", "", names(myData))
myDataFrom2006 <- subset(myData, year>=2006)
library(ggplot2)

Total income in Billions of Euros

print(ggplot(data=myDataFrom2006, aes(x=year, y=totalBeuros)) +  geom_point(colour="red") + geom_smooth(method="lm", se=FALSE, size=1) + geom_smooth(color="red", size=1) + geom_label(label=round(myDataFrom2006$totalBeuros, digits=0)) +  xlab("Year") + ylab("Billions"))

Income per adult (age> = 20) in EUR

print(ggplot(data=myDataFrom2006, aes(x=year, y=peradulteuros)) +  geom_point(colour="red") + geom_smooth(method="lm", se=FALSE, size=1) +  geom_smooth(color="red", size=1) + geom_label(label=round(myDataFrom2006$peradulteuros, digits=0)) +  xlab("Year") + ylab("EUR"))

Income per capita in EUR

print(ggplot(data=myDataFrom2006, aes(x=year, y=percapitaeuros)) +  geom_point(colour="red") + geom_smooth(method="lm", se=FALSE, size=1)+ geom_smooth(color="red", size=1) + geom_label(label=round(myDataFrom2006$percapitaeuros, digits=0)) +  xlab("Year") + ylab("EUR"))