Updae the labs to have the correct time label

DESCRIPTION

@@ -22,7 +22,6 @@ Suggests:
 Imports: 
     assertthat (>= 0.2.1), 
     deSolve (>= 1.30), 
-    magrittr (>= 2.0.1), 
     FME (>= 1.3.6.2)
 RoxygenNote: 7.2.3
 VignetteBuilder: knitr

README.Rmd

@@ -74,6 +74,7 @@ ggplot(data = mend_out) +
   geom_line(aes(time, value, color = name), linewidth = 0.75) + 
   facet_wrap("variable", scales = "free") + 
   labs(y = "mg C/g soil", 
+       x = "time (hour)"
        title = "MEND Run Results")
 ```
 
@@ -108,7 +109,8 @@ ggplot(data = rbind(mend_out, my_out)) +
   geom_line(aes(time, value, color = name), linewidth = 0.75) + 
   facet_wrap("variable", scales = "free") + 
   labs(y = "mg C/g soil", 
-       title = "Comparing Model Results") +
+       title = "Comparing Model Results", 
+       x = "time (hour)") +
   theme(legend.title = element_blank())
 ```
 

README.md

@@ -137,6 +137,8 @@ ggplot(data = mend_out) +
   geom_line(aes(time, value, color = name), linewidth = 0.75) + 
   facet_wrap("variable", scales = "free") + 
   labs(y = "mg C/g soil", 
+         x = "time (hour)"
+
        title = "MEND Run Results")
 ```
 

vignettes/MEMC.Rmd

@@ -73,6 +73,7 @@ ggplot(data = mend_out) +
   geom_line(aes(time, value, color = name), linewidth = 0.75) + 
   facet_wrap("variable", scales = "free") + 
   labs(y = "mg C/g soil", 
+       x = "time (hour)", 
        title = "MEND Run Results")
 ```
 
@@ -124,7 +125,8 @@ ggplot(data = rbind(mend_out, my_out)) +
   geom_line(aes(time, value, color = name), linewidth = 0.75) + 
   facet_wrap("variable", scales = "free") + 
   labs(y = "mg C/g soil", 
-       title = "Comparing Model Results") +
+       title = "Comparing Model Results", 
+       x = "time (hour)") +
   theme(legend.title = element_blank())
 ```
 

vignettes/articles/Fit-to-Data.Rmd

@@ -88,7 +88,7 @@ ggplot(data = out[out$variable == "IC", ]) +
   geom_line(aes(time, value, color = par)) +
   geom_point(data = comp_data, aes(time, IC)) +
   facet_wrap("variable", scales = "free") + 
-  labs(x = "Time", y = "mg C/g soil", title = "MIMCS") 
+  labs(x = "Time (hour)", y = "mg C/g soil", title = "MIMCS") 
 
 ```
 

vignettes/articles/ModelComparison.Rmd

@@ -55,6 +55,6 @@ Visualize results!
 ggplot(data = out) + 
   geom_line(aes(x = time, y = value, color = name), linewidth = 1, alpha = 0.85) +
   facet_wrap("variable", scales = "free") + 
-  labs(x = "Time", y = "mg C/g", title = "MEMC Model Comparison") + 
+  labs(x = "Time (hour)", y = "mg C/g", title = "MEMC Model Comparison") + 
   scale_color_manual(values = MEMC::colorMEMCPalette())
 ```

vignettes/articles/sens.Rmd

@@ -178,6 +178,7 @@ ggplot(data = out) +
   geom_line(aes(time, Mean, color = name)) + 
   facet_wrap("variable", scales = "free") + 
   labs(y = "mg C/g soil", 
+       x = "Time (hour)",
        title = "Global Sensitivity to Vd, Vp & Vm", 
        subtitle = "q25/q75") + 
   theme(legend.title = element_blank()) + 
@@ -208,15 +209,15 @@ CORPSEsens_out <- memc_sensfunc(config = CORPSE_model,
 Format output and visualize the results. 
 ```{r}
 out <- rbind(cbind(format_sensout(CORPSEsens_out), name = "CORPSE"), 
-              cbind(format_sensout(MENDsens_out), name = "MEND"))
+             cbind(format_sensout(MENDsens_out), name = "MEND"))
 ```
 
 ```{r, fig.width=8}
 ggplot(data = out) +
   geom_line(aes(time, value, color = name)) +
   facet_wrap("parameter", scales = "free") + 
   labs(title = "Local Senstivity to DOM", 
-       x = "Time", y = "" ) 
+       x = "Time (hour)", y = "" ) 
 ```