# Sample concentration data
conc_data <- data.frame(
USUBJID = rep(paste0("S-", 1:2), each = 2),
ACTUAL_TIME = c(0, 24, 0, 24),
SAMPLE_TYPE = rep(c("PLASMA", "URINE"), 2),
COHORT = "A",
TIME_UNIT = "hr"
)
# Sample dose data
dose_data <- data.frame(
USUBJID = rep(paste0("S-", 1:2), each = 1),
ACTUAL_TIME = c(0, 0),
DOSE_LEVEL = c(100, 100),
COHORT = "A",
DOSE_UNIT = "mg"
)
# Generate the plot
pk_dose_qc_plot(
data_conc = conc_data,
data_dose = dose_data,
x_var = "ACTUAL_TIME",
y_var = "USUBJID",
colour_var = "DOSE_LEVEL",
shape_var = "SAMPLE_TYPE",
grouping_vars = "COHORT",
x_var_units = "TIME_UNIT",
colour_var_units = "DOSE_UNIT",
title = "Sample Dosing and PK Plot"
)
Run the code above in your browser using DataLab