0
我試圖使用gridGraphics::grid.echo
根據to this link這樣我就可以使用cowplot
的plot_grid
一個ggplot
結合了Gviz
plotTracks
情節。gridGraphics :: grid.echo錯誤:表達式必須是一個長度爲1矢量
繼Gviz
的vignette和this link,這裏是我做的:
require(Gviz)
data(geneModels)
gtrack <- GenomeAxisTrack()
itrack <- IdeogramTrack(genome = "hg19", chromosome = as.character(geneModels$chromosome[1]))
grtrack <- GeneRegionTrack(geneModels, genome = "hg19",chromosome = as.character(geneModels$chromosome[1]), name = "Gene Model")
require(gridGraphics)
gwrap_plot <- function(x) {
tree <- grid::grid.grabExpr(gridGraphics::grid.echo(x))
u <- grid::unit(1, 'null')
gtable::gtable_col(NULL, list(tree), u, u)
}
graphics.off()
plotTracks(list(itrack, gtrack, grtrack))
track.plot <- recordPlot()
gwrap_plot(track.plot)
而且我得到這個錯誤:
Error in switch(x[[2]][[1]]$name, C_abline = C_abline(x[[2]]), C_plot_new = C_plot_new(x[[2]]), :
EXPR must be a length 1 vector
任何想法有什麼gridGraphics
的問題 '與Gviz
小號grid.echo
' s plotTracks
情節?