Is GDP per capita an Indication of country’s happiness ?

Ahmad Hasnain

• Rpubs link for the report (http://rpubs.com/The_Analyst/IV)

Data Source

• Wikipedia The World Happiness Report 2018. Retrieved from https://en.wikipedia.org/wiki/World_Happiness_Report
• Original source of data http://worldhappiness.report/ed/2018/

Code and Visualisation

library(ggplot2)
library(rvest) 
 #scrap data 
Happiness_Index <- read_html("https://en.wikipedia.org/wiki/World_Happiness_Report")
# select the fifth element of the html_nodes
Happiness_Index_2018<- html_table(html_nodes(Happiness_Index, "table")[[5]])
#catgorising the index
for (i in 1:length(Happiness_Index_2018$Country)) {
  Happiness_Index_2018$Happiness_Category <- 
  with(Happiness_Index_2018,ifelse(Score >= 7,"Extremely Happy",
  ifelse(Score >= 6 & Score < 7,"Very Happy",
  ifelse(Score >= 5 & Score < 6,"Happy","Not Happy"))))
}
#Factorise
Happiness_Index_2018$Happiness_Category <- factor(Happiness_Index_2018$Happiness_Category,
levels = c("Extremely Happy","Very Happy","Happy","Not Happy"))
#creating a label for plotting
Happiness_Index_2018$label <- ifelse(((Happiness_Index_2018$`GDP per capita` > 2.0
& Happiness_Index_2018$Score > 6.0) |
((Happiness_Index_2018$`GDP per capita`> 1.0 & 
Happiness_Index_2018$`GDP per capita`< 1.2)& Happiness_Index_2018$Score > 7.0)| 
(Happiness_Index_2018$`GDP per capita`<0.15) &
Happiness_Index_2018$Score > 4.3) |
(Happiness_Index_2018$`GDP per capita`> 1) &
(Happiness_Index_2018$Score > 3.5 & Happiness_Index_2018$Score < 3.8)|
(Happiness_Index_2018$`GDP per capita`> 1.3) &
(Happiness_Index_2018$Score >5.4 &Happiness_Index_2018$Score < 6) ,
paste("\n",Happiness_Index_2018$Country,"\n"),"")
#create an object for plot and   assign the dataset variables.
#Colour the points by Happiness Category 
p <- ggplot( data = Happiness_Index_2018,
             aes(x=Score, y=`GDP per capita`,
                 colour=Happiness_Category))
p <- p + scale_color_discrete(name="Happiness Category")
#add the linear regression line to the plot
p <- p + stat_smooth(method="lm")
#add a layer for the plot type (points) 
p <- p+geom_point()+
  theme(legend.background = element_rect(fill="grey", size=0.5, linetype="solid"))
# label the outlier 
p <- p+geom_text(aes(label=Happiness_Index_2018$label), position = position_nudge(y=0.05))
#Add title , Label axes
p <- p+labs(title="Happiness Index in Comparison with GDP Per Capita of the Country", 
       x = "Happiness Index Score",
       y = "GDP Per Capita")
# make title and axes bold, change color of axes labels for better readability 
p <- p+ 
  theme(
    plot.title = element_text(color="black", size=16, face="bold", hjust = 0.5),
    axis.title.x = element_text( size=12, face="bold"),
    axis.title.y = element_text( size=12, face="bold")
  ) 
#plot 
p

Conclusion:

• Counties having high GDP like UAE with a GDP 2.096 doesnt qualify among the happiest nation, whereas Costa Rica with a much lesser GDP of 1.010 appears much happier indicating that wealth is not primarily an indication of happiness.

End