rmarkdown section title as variable ##

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