Final Draft (Hopefully)

plot2/plot.R

@@ -0,0 +1,33 @@
+library(ggplot2)
+library(readr)
+library(latex2exp)
+
+dat <- read_csv("M,a
+                0,0")
+
+x_lab <- function() {
+  TeX(r"($M$)")
+}
+
+y_lab <- function() {
+  TeX(r"($a \ \small{m \cdot s^{-2}}$)")
+}
+
+plt <- ggplot(data = dat, aes(x = M, y = a)) +
+  geom_segment(x = 0,
+               y = 0,
+               xend = 1,
+               yend = 9.8,
+               col = "#0072B2",
+               size = 1) +
+  labs(x = x_lab(),
+       y = y_lab()) +
+  expand_limits(y = c(0, 10), x = c(0, 1))
+
+plt
+
+ggsave("plot.svg",
+  plot = plt,
+  width = 5,
+  height = 5,
+)