R - グリッドに配置するときの画像の高さを変更する方法

Question

いくつかのプロットの横に画像を並べたいと思います。私の例では、次のようになります。

library(grid) 
library(gridExtra) 
library(ggplot2) 
library(RCurl) 
library(png) 

img0 <- readPNG(getURLContent('http://carpng.com/wp-content/uploads/thumb/red-cartoon-car-8056-0.png')) 
grob0 <- rasterGrob(img0) 

p <- ggplot(mpg, aes(displ, hwy))+ geom_point()+ geom_line() 
p3 <- grid.arrange(p,p,p) 

grid.arrange(grob0, p3, ncol=2) 

に似ています：私は車のイメージの高さは、3つのプロットの高さを一致させたい

。

実際のデータでは、プロットのx軸の長さが異なっているので、プロットする方法がありますので、x軸は互いに相対的にスケーリングされていますか？

ありがとうございます。

Answer 1

これを試してみてください：

library(grid) 
library(gridExtra) 
library(ggplot2) 
library(RCurl) 
library(png) 

img0 <- readPNG(getURLContent('http://carpng.com/wp-content/uploads/thumb/red-cartoon-car-8056-0.png')) 

# Set height of image. 
# Image has white space above and below the car 
grob0 <- rasterGrob(img0, height= unit(1,"npc"), just=c("center","center")) 

p <- ggplot(mpg, aes(displ, hwy))+ geom_point()+ geom_line() 
p3 <- grid.arrange(p,p,p) 
grid.arrange(grob0, p3, ncol=2) 

は車の上や下に空白をトリミング：

img0 <- img0[75:225,,] 
grob0 <- rasterGrob(img0, height= unit(1,"npc"), just=c("center","center")) 
grid.arrange(grob0, p3, ncol=2) 

がトリミングされた画像をストレッチ：

grob0 <- rasterGrob(img0, width=unit(1,"npc"), height=unit(1,"npc"), 
     just=c("center","center")) 
grid.arrange(grob0, p3, ncol=2)