```{r, results="asis", echo = FALSE} i = 1 cat("## Subject", i, " ") plot(i) i = 2 cat(" ## Subject", i, " ") plot(i) ```