Exercise 1. Debug the following code read_cav("API_ILO_country_YU. cav") ">% gather (year, "Unemployment Rate" , '2010" : "2014", convert=TRUE) %>% filter(str_detect ( Country Name" , " \\\\(IDA. *\\\\) % % mutate ( Country Name* = str_replace(*Country Name , "", "\\\\(IDA. *\\\\)")) %>% select (-"Country Code" ) >% ggplot (aes (x=year , y="Unemployment Rate", color="Country Name") ) %>% + geom_point () + geom_line ()