如何在sweave中的for循环中打印ggplot输出

Question

prod_data是具有cpu使用数据的数据框。我需要在applciation vectore中查看每个应用程序并打印出所有图表的图表。看起来，当我打印（p）时，它不打印。任何人都可以告诉我这里缺少什么。我需要打印insinde for for循环，一次打印一个所有应用程序cpu。

<<results=tex, meval=FALSE, echo=FALSE>>=
    application<-c("Web","Farm")

    for (product in application){ 
      cat(paste("\\section{",product,"}", sep=""))
      p<-ggplot(subset(prod_data, App %in% product),aes(Date, Cpubusy, group=Hostname, fill=Hostname))+geom_area()+
      facet_wrap(~Hostname)+theme_bw()+
      ggtitle(paste(product, " %CPU Usage"))+ theme(strip.background = element_rect(colour="blue", fill="#b2d8ff"),axis.text.x = element_text(angle = 30, hjust = 1))+scale_fill_brewer(palette="RdYlGn")
      print(p)


      }
    @