library(gcookbook)
library(ggplot2)
ggplot(cabbage_exp,aes(x=Date,y=Weight,fill=Cultivar))+ geom_col(position=position_dodge(.7),width =.5)+geom_text(aes(label=Weight),vjust=-.02)
library(gcookbook)
library(ggplot2)
library(dplyr)
library(tidyverse)
climate_mod<- climate %>% filter (Source=="Berkley")%>% select(Year,Anomaly10y,Unc10y)
ggplot(climate_mod, aes(x=Year,y=Anomaly10y))+ geom_ribbon (aes (ymin=Anomaly10y-Unc10y,ymax=Anomaly10y + Unc10y),alpha=.2)+geom_line()
climate_mod<- climate %>% filter (Source=="Berkley")%>% select(Year,Anomaly10y,Unc10y)
climate_mod<- climate %>%
filter(Source=="Berkeley") %>%
select(Year,Anomaly10y,Unc10y)
ggplot(climate_mod, aes(x=Year,y=Anomaly10y))+ geom_ribbon (aes (ymin=Anomaly10y-Unc10y,ymax=Anomaly10y + Unc10y),alpha=.2)+geom_line()