## Not run:
# ### Request data on the US for days of rain over 2 mm
# ens_dat <- get_ensemble_stats("USA","mavg","ppt_days2")
# # subset to the 50th percentile and just until the year 2100
# ens_dat <- subset(ens_dat, ens_dat$percentile == 50)
# ens_dat <- subset(ens_dat,ens_dat$toYear == 2100)
# ggplot(ens_dat,aes(x = as.factor(month), y= monthVals, group=scenario,
# colour=scenario)) + geom_point() + geom_line()
# ## End(Not run)
Run the code above in your browser using DataLab