minor code edits

ASKurz · Mar 1, 2020 · 686783e · 686783e
1 parent 5d60d84
commit 686783e
Showing 1 changed file with 6 additions and 8 deletions.
diff --git a/14.Rmd b/14.Rmd
@@ -802,7 +802,7 @@ p1 <-
   geom_segment(data = f_b14.3_mi, 
                aes(x = lower, xend = upper,
                    y = kcal, yend = kcal),
-             color = color, size = 1/4) +
+               color = color, size = 1/4) +
   labs(subtitle = "Note: For the regression line in this plot,\nlog(mass) has been set to its median, 1.244.",
        x = "neocortex proportion",
        y = "kcal per gram") +
@@ -822,9 +822,8 @@ p2 <-
   ggplot(aes(x = logmass, y = neocortex)) +
   geom_point(color = "white") +
   geom_pointrange(data = f_b14.3_mi,
-                  aes(y = estimate,
-                      ymin = lower, ymax = upper),
-             color = color, size = 1/3, shape = 1) +
+                  aes(y = estimate, ymin = lower, ymax = upper),
+                  color = color, size = 1/3, shape = 1) +
   scale_x_continuous("log(mass)", breaks = -2:4) +
   ylab("neocortex proportion") +
   coord_cartesian(xlim = range(data_list$logmass, na.rm = T),
@@ -925,7 +924,7 @@ p1 <-
   geom_segment(data = f_b14.4_mi, 
                aes(x = lower, xend = upper,
                    y = kcal, yend = kcal),
-             color = color, size = 1/4) +
+               color = color, size = 1/4) +
   labs(subtitle = "Note: For the regression line in this plot,\nlog(mass) has been set to its median, 1.244.",
        x = "neocortex proportion",
        y = "kcal per gram") +
@@ -945,9 +944,8 @@ p2 <-
   ggplot(aes(x = logmass, y = neocortex)) +
   geom_point(color = "white") +
   geom_pointrange(data = f_b14.4_mi,
-                  aes(y = estimate,
-                      ymin = lower, ymax = upper),
-             color = color, size = 1/3, shape = 1) +
+                  aes(y = estimate, ymin = lower, ymax = upper),
+                  color = color, size = 1/3, shape = 1) +
   scale_x_continuous("log(mass)", breaks = -2:4) +
   ylab("neocortex proportion") +
   coord_cartesian(xlim = range(data_list$logmass, na.rm = T),