ggplot2图像未显示为来自Rmd的pdf

Question

新的R降价排序。我定义了一个函数，它在一个单独的.R文件中用ggplot2创建一个图：

heatMapDevRatio <- function(glmnet_obj_list,alpha_seq,
                        plot_name){
grid <- matrix(NA,nr=1,ncol=3)    
colnames(grid) = c('alpha','lambda','dev.ratio')
for(idx in 1:length(glmnet_obj_list)){
    alpha = getAlpha(names(glmnet_obj_list)[idx])
    temp_df = data.frame(alpha=alpha,
                         lambda=glmnet_obj_list[[idx]]$lambda,
                         dev.ratio=glmnet_obj_list[[idx]]$dev.ratio)
    grid = rbind(grid,temp_df)
}
grid = grid[-1,]

ggplot(data = grid, aes(lambda, alpha)) +
    geom_raster(aes(fill = dev.ratio), interpolate = TRUE) +
    ggtitle(plot_name) +
    xlab(expression(~lambda)) +
    ylab(expression(~alpha))

}

无论如何，该函数运行正常 - 如果我在交互式会话中运行它，或者如果我在脚本中使用该函数的话，我将它输出到标准图形设备。

问题是当我在源（）之后在Rmd文件中运行函数时，使用函数定义来处理文件。

```{r heatmap     10yr,eval=T,echo=F,fig.height=4,fig.width=4,fig.cap='lkjafkd'}
 heatMapDevRatio(fitted_mods_20yr[2:10],alpha_seq,'adfasfd')
 ```

导出到pdf有效，但在pdf上我只是引用了一些在执行后似乎不存在的奇怪目录 - 这个数字应该是，我有这样的文字：

![lkjafkd](cox_summary[exported]_files/figure-latex/heatmap 10yr-1.pdf)

我应该将图像写入文件并包含它，还是应该重定向图形输出？我认为它应该可行。

你认为问题是我用来编织的命令吗？

     Rscript -e "rmarkdown::render('cox_summary.Rmd', output_format = 'pdf_document', output_file = 'cox_summary[exported].pdf')"