## Not run:
# #Set the kmlpath option
# options(kmlpath = "/Users/edmundhart/kmltemp")
# ##Here we use a list basins for Africa
# af_basin <- create_map_df(Africa_basin)
# af_basin_dat <- get_ensemble_temp(Africa_basin,"annualanom",2080,2100)
# ## Subset data to just one scenario, and one percentile
# af_basin_dat <- subset(af_basin_dat,af_basin_dat$scenario == "a2")
# af_basin_dat <- subset(af_basin_dat,af_basin_dat$percentile == 50)
# af_map <- climate_map(af_basin,af_basin_dat,return_map = T)
# af_map + scale_fill_continuous("Temperature \n anomaly",low="yellow",high = "red") + theme_bw()
#
# ## End(Not run)
Run the code above in your browser using DataLab