testing/aux_prodint_plot.R

In vsritter/sim.etm: What the Package Does (One Line, Title Case)

p_05 %>%
  ggplot(aes(x = t, y = p)) +
  geom_line() +
  geom_step(aes(x = t, y = p), color = "red", data = etm_05a) +
  geom_step(aes(x = t, y = p), color = "blue", data = etm_05b) +
  facet_wrap(~ trans, scales = "free")

p_02 %>%
  ggplot(aes(x = t, y = p)) +
  geom_line() +
  geom_step(aes(x = t, y = p), color = "red", data = etm_02a) +
  geom_step(aes(x = t, y = p), color = "blue", data = etm_02b) +
  facet_wrap(~ trans, scales = "free")