From 686783e02a5dea3bc14e7ddc79d3d25cc1ba82b7 Mon Sep 17 00:00:00 2001 From: Solomon Kurz Date: Sun, 1 Mar 2020 16:43:18 -0600 Subject: [PATCH] minor code edits --- 14.Rmd | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/14.Rmd b/14.Rmd index 78d626b..d4a246c 100644 --- 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),