Maybe show the legend in a floating HTML element/outside the plot in Shiny? Also for basic plotting?

[ddediu]

This would avoid crowding of the shiny plot and be better from an UI perspective

[ddediu]

See also issue #101

[ddediu]

Might also be useful for normal plotting
(Suggested by Tsaone Tamuhla)

[ddediu]

This turns out to be pretty much and might require some serious changes to the code. However, as a workaround, there's now a parameter do.not.draw.plotto the plot()function which is intended to only plot the legend (at coordinates (0,0)), which, combined with get.legend.plotting.area() should allow the placement of the legend outside the CMA plot

[mumbarkar]

Hello @ddediu,

Please find below R code to plot cma0 plot and legends separate. I think this may be helpful for other researchers.

Thanks in advance...

load the required libraries

library(AdhereR)
library(dplyr)

Load the built-in dataset "med.events":

df <- med.events %>% filter(PATIENT_ID %in% c(37,76))

Take a look into data

head(med.events)

Create a CMA0 object to generate patient history

cma0 <- CMA0(data=df, # use the two selected patients
ID.colname="PATIENT_ID", # the name of the column containing the IDs
event.date.colname="DATE", # the name of the column containing the event date
event.duration.colname="DURATION", # the name of the column containing the duration
event.daily.dose.colname="PERDAY", # the name of the column containing the dosage
medication.class.colname="CATEGORY", # the name of the column containing the category
followup.window.start=0, # FUW start in days since earliest event
observation.window.start=182, # OW start in days since earliest event
observation.window.duration=365, # OW duration in days
date.format="%m/%d/%Y"); # date format (mm/dd/yyyy)

plot the treatment patterns

1. Create a 1 x 2 plotting matrix

par(mfrow = c(1,2))

2. create only cma0 plot

plot(cma0, # the object to plot
align.all.patients = TRUE, # align all patients for easier comparison
patients.to.plot = NULL, # a vector of string containing list of patients to be plot
duration = 365*2, # a number, total duration (in days) of the whole period to plot
align.first.event.at.zero = FALSE, # Logical,the first event be placed at the origin of the time axis?
show.period = c("dates","days")[2], # show period in dates or days (if align.all.patients == TRUE then plot will show x axis in days only)
period.in.days = 30, # the number of days at which the regular grid is drawn
show.legend = FALSE, # Logical, should the legend be drawn?
bw.plot = FALSE)

3. add legends only

plot(cma0, # the object to plot
align.all.patients = TRUE, # align all patients for easier comparison
patients.to.plot = NULL, # a vector of string containing list of patients to be plot
duration = 365*2, # a number, total duration (in days) of the whole period to plot
align.first.event.at.zero = FALSE, # Logical,the first event be placed at the origin of the time axis?
show.period = c("dates","days")[2], # show period in dates or days (if align.all.patients == TRUE then plot will show x axis in days only)
period.in.days = 30, # the number of days at which the regular grid is drawn
show.legend = TRUE, # Logical, should the legend be drawn?
bw.plot = FALSE,
legend.x = "right",
legend.y = "top",
legend.bkg.opacity = 0.5,
legend.cex = 0.35,
legend.cex.title = 1,
cex = 1,
cex.axis = 0.45,
do.not.draw.plot = TRUE) # logical, plot only legends if show.legend == TRUE

Output: