Spekboom Water Loss

Stem diameter changes

Biomass change

dat%>%
  select(contains("Wt"))%>%
  select(-DryWt_Leaves,-DryWt_Leaves_Once.off)%>%
  mutate_all(funs((.-dat$DryWt_Branches)/.*100))%>%
  select(-DryWt_Branches)%>%
  bind_cols( select(dat,Treatment,Replicates,Label))%>%
  tidyr::gather(key="Wt_Treatment",value="Biomass",-Treatment,-Label,-Replicates)%>%
  mutate(SampleID=paste(Treatment,Label,sep="-"))%>%
  tidyr::separate(Wt_Treatment,into=c("Wt","Wt_No"))%>%
  mutate(Wt_No=as.numeric(Wt_No))%>%
  ggplot(aes(as.factor(Wt_No),Biomass))+
  geom_boxplot()+
  geom_boxplot()+
  facet_wrap(~Treatment)+
  xlab("Measurement iteration (needs to be days since start)")+
  ylab("Water Moisture (%)")

dat%>%
  select(contains("Wt"))%>%
  select(-DryWt_Leaves,-DryWt_Leaves_Once.off)%>%
  bind_cols( select(dat,Treatment,Replicates,Label))%>%
  tidyr::gather(key="Wt_Treatment",value="Biomass",-Treatment,-Label,-Replicates)%>%
  mutate(SampleID=paste(Treatment,Label,sep="-"))%>%
  tidyr::separate(Wt_Treatment,into=c("Wt","Wt_No"))%>%
  mutate(Wt_No=as.numeric(Wt_No))%>%
  ggplot(aes(as.factor(Wt_No),Biomass,group=Label))+
  geom_line()+
  facet_wrap(~Treatment)+
  xlab("Measurement iteration (needs to be days since start)")+
  ylab("Raw Wt (g)")

## Warning in evalq(as.numeric(Wt_No), <environment>): NAs introduced by
## coercion