params: ctr: "" title: ""
subtitle: r params$ctr$save_dir
title: r params$title
cats <- ctr %>% get_cats
We can create many plots under the same chunk.
ctr %>% pmx_plot_iwres_time ctr %>% pmx_plot_dv_ipred ctr %>% pmx_plot_eta_box
To include custom plot within the ggPMX framework , we should register the created plot. Here we are using pmx_register_plot
. If we are in a case that we need to add footnote , ggPMX will add the right footnote under the custom plot.
library(ggplot2) inn <- ctr %>% get_data("input") pp <- ggplot(inn, aes(WT0,AGE0)) + geom_smooth() + pmx_theme() ctr %>% pmx_register_plot(pp,"age0_vs_wt0")
We can mix ggPMX and no ggPMX plots under the same chunk. Note that here if we do not register pp, footnotes may wrong; see section on Erroneous usage.
pp
Here we register the custom plot:
ctr %>% pmx_register_plot(pp,"age0_vs_wt0") ctr %>% pmx_plot_eta_box
When mixing ggPMX plots and other plots within one chunk, the package cannot keep track of the numbering of plots.
Footnotes may be wrong. ggPMX
will throw a message to indicate that the plot was not regisered.
inn <- ctr %>% get_data("input") ggplot(inn, aes(WT0,AGE0)) + geom_point() print(ctr %>% pmx_plot_iwres_time)
Similarly, when plotting a ggPMX plot twice, the package cannot keep track of the numbering of plots.
Footnotes may be wrong. ggPMX
will throw a message to indicate that the plot was not regisered.
pp <- ctr %>% pmx_plot_iwres_time plot(pp) plot(pp + scale_x_log10())
Plot that does not get rendered will throw error to prevent errors in footnotes.
# for(i in 1:2) { # ctr %>% pmx_plot_iwres_time # } # ctr %>% pmx_plot_iwres_time
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.