minor code edits

Author: Solomon Kurz

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),