ggforce

ggforce copied to clipboard

I was thinking it would be nice to have different types of ticks based on some units.

For example with time, ticks are based on units of 10 and 4, but really may be more useful to be in groups of 4, 8, 12, or 24 for hours, 7, 14, for days, etc.

I could cobble something together if you think it is useful.

An example of this is below using the github RxODE

library(RxODE)
     ## Model from RxODE tutorial
     mod1 <-RxODE({
         KA=2.94E-01;
         CL=1.86E+01;
         V2=4.02E+01;
         Q=1.05E+01;
         V3=2.97E+02;
         Kin=1;
         Kout=1;
         EC50=200;
         C2 = centr/V2;
         C3 = peri/V3;
         d/dt(depot) =-KA*depot;
         d/dt(centr) = KA*depot - CL*C2 - Q*C2 + Q*C3;
         d/dt(peri)  =                    Q*C2 - Q*C3;
         d/dt(eff)  = Kin - Kout*(1-C2/(EC50+C2))*eff;
     });
     
     ## Creating an event table with a single dose
     
     ev <- et(amt=10000, timeUnits="hours") %>% ## single dose
           et(seq(0, 24, length.out=100));
     
     singleDose <- rxSolve(mod1, ev)
     
     plot(singleDose, C2)

^{Created on 2019-02-21 by the reprex package (v0.2.1)}