sa_gdp_elec <-
structure(list(year = c(2003, 2004, 2005, 2006, 2007, 2008, 2009, 
2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018), access_elec = c(78.799999999999997, 
80.900000000000006, 80.799999999999997, 80.700000000000003, 82, 
81.900000000000006, 82.599999999999994, 82.900000000000006, 83.599999999999994, 
85.299999999999997, 85.200000000000003, 86, 85.299999999999997, 
84.200000000000003, 84.400000000000006, 84.700000000000003), 
    startup = c(9.4000000000000004, 9.0999999999999996, 8.5999999999999996, 
    6.9000000000000004, 7.0999999999999996, 6, 5.9000000000000004, 
    6, 0.29999999999999999, 0.29999999999999999, 0.29999999999999999, 
    0.29999999999999999, 0.29999999999999999, 0.20000000000000001, 
    0.20000000000000001, 0.20000000000000001), co2 = c(353110, 
    379970, 377640, 379560, 396900, 426560, 404020, 425110, 409120, 
    426710, 436870, 447980, 424880, 425180, 435140, 433250), 
    gdp = c(10646.831514274665, 10997.010910934552, 11434.915238094833, 
    11924.073412911546, 12402.049460422897, 12628.200837387965, 
    12262.143033421144, 12452.337529085664, 12666.708016224931, 
    12743.93860810461, 12852.782159696138, 12884.48459811975, 
    12840.035403376807, 12702.917075802594, 12701.348933123214, 
    12627.928584044488), gni = c(10388.183652874184, 10807.166665080669, 
    11233.345930940191, 11711.352332241919, 12010.288032365894, 
    12251.733016678965, 11999.964551896057, 12195.418750345874, 
    12346.551333132036, 12404.113412447936, 12523.902702727617, 
    12549.896204908044, 12528.093782612465, 12355.724414583719, 
    12320.426837999756, 12229.110562203214), co2_kg_ppp = c(0.70989515158865479, 
    0.73061831273710809, 0.68974013960162128, 0.65646021900044094, 
    0.65152539870273352, 0.67856016647138717, 0.65274392587154317, 
    0.66655590558718014, 0.62108667819239616, 0.63376270885927133, 
    0.63311838941056531, 0.63744559714027949, 0.59744395665823125, 
    0.59548927509436944, 0.60093848264135041, 0.59365594639184827
    )), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-16L))