R;并排绘制散点图和热图

我试图创建一个图像并排显示散点图和热图。我用gemap创建散点图，用heatmap创建散热图。然后我使用grid.draw将它们放在相同的图像但是我无法让图像的大小相同。我怎样才能确保它们的高度相同（这很重要，因为它们以相同的方式排列并相互匹配）？R;并排绘制散点图和热图

我的代码是：

grab_grob <- function(){ 
     grid.echo() 
     grid.grab() 
    } 
    g1 <- ggplot(x, aes(x=VIPscore, y=reorder(metabolite, VIPscore))) + geom_point(colour="blue") + labs(y="", x="VIP score") 
    heatmap.2(xhm, cexRow=0.5, cexCol=1, Colv=FALSE, Rowv = FALSE, keep.dendro = FALSE, trace="none", key=FALSE, lwid = c(0.5, 0.5), col=heat.colors(ncol(xhm))) 
    g2 <- grab_grob() 
    grid.newpage() 
    lay <- grid.layout(nrow = 1, ncol=2) 
    pushViewport(viewport(layout = lay)) 
    print(g1,vp=viewport(layout.pos.row = 1, layout.pos.col = 1)) 
    grid.draw(editGrob(g2, vp=viewport(layout.pos.row = 1, layout.pos.col = 2, clip=TRUE))) 
    upViewport(1)

我还试图接着grid.arrange的geom_tile（而不是heatmap.2）;尽管现在图像匹配的图像颜色很糟糕 - 它们在我的数据集中看起来很平坦。

来源

2016-05-13 HJB

也许相关：http://stackoverflow.com/a/14233531/471093 – baptiste

谢谢 - 我与你指着周围的代码，但搞砸我结束了与小我的屏幕上的图像 - 哪一部分要改变以使图像高度更高？ – HJB

嵌入式解决方案可以使用包“ComplexHeatmap”。

https://bioconductor.org/packages/release/bioc/vignettes/ComplexHeatmap/inst/doc/s4.heatmap_annotation.html

来源

2016-05-14 00:01:29 lgautier

了一个叫做plotly可能是帮助在这里。看看他们API docs

library(plotly) 

df <- data.frame(x = 1:1000, 
       y = rnorm(1000)) 

p1 <- plot_ly(df, x = x, y = y, mode = "markers") 
p2 <- plot_ly(z = volcano, type = "heatmap")%>% layout(title = "Scatterplot and Heatmap Subplot") 

subplot(p1, p2)

来源

2016-05-14 06:16:21 royr2

R;并排绘制散点图和热图

回答

相关问题