Rmarkdown以##开头显示pdf上的不需要的输出

Question

我已经使用Rmarkdown一段时间了。我最近从Rmarkdown生成了我的pdf输出。我使用了ggplot和ggplot2中的sapply函数来绘制图表。虽然图表填充得非常好，但还有大量其他细节在pdf上绘制。 从##开始，打印了多个具有面板图数据颜色大小细节的线条。我不确定如何将它们从我的情节中排除。这与Rmarkdown或sapply有关。我尝试了各种选项，如echo = false但没有成功。

`sapply(unique(turnDatC$vintage),function(x) {
tmpflt <- filter(turnDatC,vintage == x)
sapply(unique(tmpflt$net_coupon),function(y) {
df1 <-filter(tmpflt,(net_coupon == y)) %>%
select(product,as_of_date,vintage, net_coupon,cltv_bkt,variable,value) %>%
group_by(product,vintage,net_coupon,cltv_bkt,variable) %>%
filter(length(value)>1) %>%
ungroup()
if(nrow(df1)>1)
{ print(x)
print(y)
plot(df1%>%
ggplot(aes(x = as_of_date,y = value,color = variable,group =    variable)) +
geom_line() +
geom_point() +
scale_x_date(breaks = date_breaks("months"),labels = date_format("%Y/%m")) +
xlab("TimeSeries") +
ylab("CPR") +
facet_grid(cltv_bkt ~ .) +
theme(legend.position = "bottom", legend.title = element_blank(),     axis.text.x = element_text(angle = 90, hjust = 1)) +
ggtitle(paste0("Vintage - ",x, " Coupon - ",y , " CLTV across Time Series")))}
})`