Qualify aes() calls and use .data$ for NSE in graph_S.R

Co-authored-by: d-morrison <2474437+d-morrison@users.noreply.github.com>

Author: Copilot

R/graph_S.R

@@ -6,15 +6,15 @@ graph_S = function(
     dplyr::filter(ID == ID) |>
     ggplot2::ggplot() +
     ggplot2::aes(
-      x = S,
-      y = `P(S=s|e,l,r,o,y)`,
+      x = .data$S,
+      y = .data$`P(S=s|e,l,r,o,y)`,
       col = "P(S=s|e,l,r,o,y)") +
     ggplot2::geom_point() +
     ggplot2::geom_line() +
-    ggplot2::geom_point(aes(y = `P(S=s|E=e)`, col = "P(S=s|E=e)")) +
-    ggplot2::geom_line(aes(y = `P(S=s|E=e)`, col = "P(S=s|E=e)")) +
-    ggplot2::geom_point(aes(y = `P(Y=y|T=t)`, col = "P(Y=y|T=t)")) +
-    ggplot2::geom_line(aes(y = `P(Y=y|T=t)`, col = "P(Y=y|T=t)")) +
+    ggplot2::geom_point(ggplot2::aes(y = .data$`P(S=s|E=e)`, col = "P(S=s|E=e)")) +
+    ggplot2::geom_line(ggplot2::aes(y = .data$`P(S=s|E=e)`, col = "P(S=s|E=e)")) +
+    ggplot2::geom_point(ggplot2::aes(y = .data$`P(Y=y|T=t)`, col = "P(Y=y|T=t)")) +
+    ggplot2::geom_line(ggplot2::aes(y = .data$`P(Y=y|T=t)`, col = "P(Y=y|T=t)")) +
     ggplot2::xlab("Seroconversion date (s)") +
     ggplot2::ylab("Probability density or mass") +
     ggplot2::theme_classic() +