In shirewoman2/Consultancy: Standardized tools for using R within the Simcyp Consultancy Team

Figure XXX. Simulated hepatic r enzyme levels during the dosing of r MySubstrate in the presence and absence of r MyPerpetrator to r tidyPop(Deets$Population)$Population.

TEMP_EA <- sim_enz_dataframe %>% filter(File == {{sim_data_file}}) %>% 
   unique()
Scenario <- paste(
   # Num enzymes
   as.character(length(unique(TEMP_EA$Enzyme)) > 1), 
   # Num tissues
   as.character(length(unique(TEMP_EA$Tissue)) > 1))

switch(Scenario, 
       "TRUE TRUE" = suppressMessages(
          enz_plot_overlay(sim_enz_dataframe = TEMP_EA, 
                           facet1_column = Enzyme, facet2_column = Tissue,
                           linetype_column = Inhibitor,
                           figure_type = figure_type_enz,
                           time_range = time_range_enz,
                           x_axis_interval = x_axis_interval_enz,
                           y_axis_label = y_axis_label_enz,
                           linear_or_log = linear_or_log_enz)),
       "TRUE FALSE" = suppressMessages(
          enz_plot_overlay(sim_enz_dataframe = TEMP_EA, 
                           facet1_column = Enzyme,
                           linetype_column = Inhibitor,
                           figure_type = figure_type_enz,
                           time_range = time_range_enz,
                           x_axis_interval = x_axis_interval_enz,
                           y_axis_label = y_axis_label_enz,
                           linear_or_log = linear_or_log_enz)),
       "FALSE TRUE" = suppressMessages(
          enz_plot_overlay(sim_enz_dataframe = TEMP_EA, 
                           facet1_column = Tissue,
                           linetype_column = Inhibitor,
                           figure_type = figure_type_enz,
                           time_range = time_range_enz,
                           x_axis_interval = x_axis_interval_enz,
                           y_axis_label = y_axis_label_enz,
                           linear_or_log = linear_or_log_enz)), 
       "FALSE FALSE" = suppressMessages(
          enz_plot_overlay(sim_enz_dataframe = TEMP_EA, 
                           figure_type = figure_type_enz,
                           linetype_column = Inhibitor,
                           time_range = time_range_enz,
                           x_axis_interval = x_axis_interval_enz,
                           y_axis_label = y_axis_label_enz,
                           linear_or_log = linear_or_log_enz))
       )

EnzCaption <- paste0("Depicted are simulated hepatic ",
                     enzyme, " levels following multiple oral doses of ",
                     MySubstrate, " in the absence of ",
                     MyPerpetrator, " (solid line) and on the ",
                     DoseDay, " day of ", Deets$SimDuration/24,
                     " days of dosing of ", MyPerpetrator, 
                     " (dashed line). The lines represent the mean data for the simulated population (n = ",
                     Deets$NumTrials * Deets$NumSubjTrial, 
                     ") Source simulated data: ", sim_data_file, ")")

r EnzCaption

shirewoman2/Consultancy documentation built on Feb. 18, 2025, 10 p.m.