Theoph lattice histogram

Sign in to test your solution.
library(ggplotify) library(lattice) data(Theoph) # Type your graphical command(s) here: # Leave this command as is: tmp <- as.grob(p3)