イメージのアスペクト比を維持するためにggimageパッケージからgeom_image（）を作成できますか？

Question

this answerを調べているときに、ggimageパッケージからgeom_image()経由でイメージストリップを描画しようとしましたが、動作させることができませんでした。 geom_image()は画像のアスペクト比を変更し、それを防止する方法（または可能性もあります）を知りません。 sizeがどのような単位で測定されるかは、私には明らかではありません。コードがどのように振る舞うかは、おそらく、npcの座標は、ggplot2座標系に関係なく、0から1まで実行されていますか？

require(ggimage) 
df_img <- data.frame(phase = c("Interphase", "Prophase", "Metaphase", "Anaphase", "Telophase"), 
        image = c("http://www.microbehunter.com/wp/wp-content/uploads/2009/lily_interphase.jpg", 
           "http://www.microbehunter.com/wp/wp-content/uploads/2009/lily_prophase.jpg", 
           "http://www.microbehunter.com/wp/wp-content/uploads/2009/lily_metaphase2.jpg", 
           "http://www.microbehunter.com/wp/wp-content/uploads/2009/lily_anaphase2.jpg", 
           "http://www.microbehunter.com/wp/wp-content/uploads/2009/lily_telophase.jpg")) 
df_img$phase <- factor(df_img$phase, levels=df_img$phase) 

ggplot(df_img, aes(x = phase, y = 0, image = image)) + geom_image(size = 0.18) 

そして、これは、結果として得られる画像である：ここで

は、私が使用したコードです

：これは、イメージがどのように見えるかです

注：これはキューです特にggimageの動作に関するものです。私は、他のアプローチを使って正しいイメージを生成する方法を知っています。カウプロットからdraw_image()を使用してください。

Answer 1

ggplot(df_img, aes(x = phase, y = 0.25, image = image)) + 
    geom_image(size = 0.5, by="height")+ 
    scale_size_identity() 

はbyが指定されている場合、サイズがマッピングされ、NPCとして解釈データ空間において、いずれかの幅または高さ、およびアスペクト比は、現在のデバイスのために維持される

を生成します（サイズ変更後ではありません）。サイズがInfの場合、画像はパネル全体を埋めるように伸びます。

Answer 2

ではなく、 "生の" 解決策：

p <- ggplot(df_img, aes(x = phase, y = 0, image = image)) + 
    geom_image(size = 0.18) + coord_fixed() 

g <- ggplotGrob(p) 
for (k in 1:length(g$grobs[[6]]$children[[3]]$children)) { 
    g$grobs[[6]]$children[[3]]$children[[k]]$height <- unit(0.8,"native") 
} 
library(grid) 
grid.draw(g)