tlg-catalog/stable/graphs/pharmacokinetic/pkcg03

[giscus[bot]]

tlg-catalog/stable/graphs/pharmacokinetic/pkcg03

Plot of Mean PK Concentration Over Time by Cohort

https://insightsengineering.github.io/tlg-catalog/stable/graphs/pharmacokinetic/pkcg03.html

[KOBANAK]

Hello,
I was wondering how to display legend elements in ascending order.

I want to plot mean of plasma concentration over time overlaid by dose.
To do so, I sort the strata vector like this : DOSE = factor(adpc$DOSE, levels = c("2MG","5MG", "15MG", "30MG", "60MG", "70MG", "100MG", "120MG", "150MG", "200MG", "230MG", "240MG", "480MG"))

Yet, in the legend, the elements don't appear in ascending dose order.

[legrasv]

I found a solution that will have to be implemented in the g_lineplot function:
Would someone from the NEST team be able to implement the code, please?

Changes are line 226, the coded (3 lines of code) added under : # keep strata factor levels

df_N <- stats::aggregate(USUBJID ~ eval(parse(text = strata)), data = alt_counts_df, FUN = function(x) length(unique(x))) # nolint
colnames(df_N) <- c(strata, "N") # nolint
df_N[[strata_N]] <- paste0(df_N[[strata]], " (N = ", df_N$N, ")") # nolint

# keep strata factor levels
matches <- sapply(unique(df_N[[strata]]), function(x) unique(df_N[[paste0(strata, "_N")]])[grepl(paste0("^", x), unique(df_N[[paste0(strata, "_N")]]))])
df_N[[paste0(strata, "_N")]] <- factor(df_N[[strata]])
levels(df_N[[paste0(strata, "_N")]]) <-  unlist(matches)

# strata_N should not be in clonames(df_stats)
checkmate::assert_disjunct(strata_N, colnames(df_stats))

This fixes the problem above. the treatment groups were not correctly ordered from the strata variable. Basically the levels of strata were not kept.