Update Facebook_analysis_final.R