site1 <-data.frame(datenum=c(1,2,3,4),
vals = c(1.1,1.2,1.3,1.3))
site2 <-data.frame(datenum=c(1,2,3,4),
vals = c(1.3,1.2,1.2,1.1))
combined <- union_all(site1 %>% mutate(grp="site1"),
site2 %>% mutate(grp="site2"))
ggplot(data=combined,aes(x=datenum,y=vals,fill=grp)) +
geom_col(position = position_dodge())
ggplot(data=combined,aes(x=datenum,y=vals,color=grp)) +
geom_line()