This function generates a line plot for an ADNCA dataset based on user-selected analytes, subjects, and other parameters. The plot can be customized to display data on a linear or logarithmic scale and can be filtered by cycle.
Usage
general_lineplot(
data,
selected_analytes,
selected_pcspec,
selected_usubjids,
colorby_var,
time_scale,
yaxis_scale,
show_threshold = FALSE,
threshold_value = 0,
cycle = NULL
)
Arguments
- data
A data frame containing the ADNCA dataset.
- selected_analytes
A character vector of selected analytes to be included in the plot.
- selected_pcspec
A character vector of selected matrix to be included in the plot.
- selected_usubjids
A character vector of selected unique subject identifiers (USUBJIDs) to be included in the plot.
- colorby_var
A character string specifying the variable by which to color the lines in the plot.
- time_scale
A character string specifying the time scale. Options are "By Cycle" or other values.
- yaxis_scale
A character string specifying the x-axis scale. Options are "Log" or other values.
- show_threshold
A boolean specifying whether to show a threshold line or not. Default is FALSE.
- threshold_value
A numeric value to set the y value of the threshold line. Default is 0.
- cycle
A character string or numeric value specifying the cycle to filter by when
time_scale
is "By Cycle". Default is NULL.
Details
The function performs the following steps:a
Filters the data based on the selected analytes, matrices, and subjects.
Selects relevant columns and removes rows with missing concentration values.
Converts 'USUBJID', 'NCA_PROFILE', and 'DOSEA' to factors.
Filters the data by cycle if
time_scale
is "By Cycle" while creating duplicates for predose samples if needed.Adjusts concentration values for logarithmic scale if
yaxis_scale
is "Log".Generates a line plot using the
g_ipp
function with the specified parameters.Adjusts the y-axis to logarithmic scale if
yaxis_scale
is "Log".
Examples
if (FALSE) { # \dontrun{
# Example usage:
plot <- general_lineplot(data = adnca_data,
selected_analytes = c("Analyte1", "Analyte2"),
selected_pcspec = c("Spec1", "Spec2"),
selected_usubjids = c("Subject1", "Subject2"),
colorby_var = "NCA_PROFILE",
time_scale = "By Cycle",
yaxis_scale = "Log",
cycle = "1",
show_threshold = TRUE,
threshold_value = 1)
print(plot)
} # }