changed titles

hadexversum · Jun 5, 2024 · b55ec00 · b55ec00
1 parent 8ddd357
commit b55ec00
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 11 deletions.
diff --git a/R/plot_fitted_uc.R b/R/plot_fitted_uc.R
@@ -66,12 +66,12 @@ plot_fitted_uc <- function(fit_dat,
 
     final_plot <- ggplot(data = fit_dat) +
       sel_points +
-      labs(title = paste0(plot_title, " scaled in log with fit components"),
+      labs(title = paste0(plot_title, " scaled"),
            y = "Fractional DU [%]",
            x = "Exposure [min]") +
       stat_function(fun=function(x){n_1*(1-exp(-k_1*x)) + n_2*(1-exp(-k_2*x)) + n_3*(1-exp(-k_3*x))}) +
       ylim(c(0, 1.25)) +
-      theme_gray(base_size = 18) +
+      theme_gray(base_size = 15) +
       stat_function(fun = function(x){n_1*(1-exp(-k_1*x))}, color = "red") +
       stat_function(fun = function(x){n_2*(1-exp(-k_2*x))}, color = "green") +
       stat_function(fun = function(x){n_3*(1-exp(-k_3*x))}, color = "blue") +
@@ -101,12 +101,12 @@ plot_fitted_uc <- function(fit_dat,
 
     final_plot <- ggplot() +
       sel_points +
-      labs(title = paste0(plot_title, " scaled in log with fit components"),
+      labs(title = paste0(plot_title, " scaled"),
            y = "Fractional DU [Da]",
            x = "Exposure [min]") +
       stat_function(fun=function(x){n_1*(1-exp(-k_1*x)) + n_2*(1-exp(-k_2*x)) + n_3*(1-exp(-k_3*x))}) +
       ylim(c(0, max_uptake + 1)) +
-      theme_gray(base_size = 18) +
+      theme_gray(base_size = 15) +
       stat_function(fun = function(x){n_1*(1-exp(-k_1*x))}, color = "red") +
       stat_function(fun = function(x){n_2*(1-exp(-k_2*x))}, color = "green") +
       stat_function(fun = function(x){n_3*(1-exp(-k_3*x))}, color = "blue") +

diff --git a/R/plot_singular_uc.R b/R/plot_singular_uc.R
@@ -28,7 +28,7 @@ plot_singular_uc <- function(fit_dat,
                              fractional = T,
                              interactive = F){
 
-    plot_title <- paste0(unique(fit_dat[["sequence"]]), " (", unique(fit_dat[["start"]]), "-", unique(fit_dat[["end"]]), ") ")
+    plot_title <- paste0(unique(fit_values[["sequence"]]), " (", unique(fit_values[["start"]]), "-", unique(fit_values[["end"]]), ") ")
 
     if(replicate){
 
@@ -51,8 +51,8 @@ plot_singular_uc <- function(fit_dat,
         sel_points +
         geom_line(data = avg_fit_dat, aes(x = Exposure, y = avg_deut_uptake), linetype = 2)  +
         ylim(c(0, NA)) +
-        theme_gray(base_size = 18) +
-        labs(title = paste0(plot_title, " without fit"),
+        theme_gray(base_size = 15) +
+        labs(title = paste0(plot_title, ""),
              x = "Exposure [min]",
              y = "Deuterium uptake [Da]")
 
@@ -75,8 +75,8 @@ plot_singular_uc <- function(fit_dat,
         sel_points+
         geom_line(linetype = 2) +
         ylim(c(0, NA)) +
-        theme_gray(base_size = 18) +
-        labs(title = paste0(plot_title, " without fit"),
+        theme_gray(base_size = 15) +
+        labs(title = paste0(plot_title, ""),
              x = "Exposure [min]",
              y = "Deuterium uptake [Da]")
 

diff --git a/vignettes/example.Rmd b/vignettes/example.Rmd
@@ -58,7 +58,8 @@ uptake_dat <- create_uptake_dataset(alpha_dat,
 ```{r fig.width=7}
 HaDeX::plot_state_comparison(uptake_dat,
                              fractional = T,
-                             time_t = 150)
+                             time_t = 150) +
+  labs(title = "Comparison plot for eEF1Bα")
 
 ```
 
@@ -75,7 +76,8 @@ HaDeX::plot_differential(diff_p_uptake_dat = diff_p_uptake_dat,
                          fractional = T, 
                          show_houde_interval = T, 
                          time_t = 150) +
-  labs(title = "Differential plot in 150 min between Alpha and Alpha+Gamma state")
+  labs(title = "Differential plot in 150 min between eEF1Bα and eEF1Bα with eEF1Bγ",
+       y = "Fractional DU [%]")
 ```