geom_image（）：如何单独设置图像大小

Question

这个问题与Can geom_image() from the ggimage package be made to preserve the image aspect ratio?有关，但在我的应用程序中，我想制作一个散点图，使用与实际图像尺寸成比例缩放的图像。

我希望用geom_image()重现的图（手动完成，使用PPT）：

我按如下方式阅读数据，并使用readPNG()包中的png获取图片尺寸：

> brains.dat <- file.path(folder, "brain-size.csv")
> brains <- read.csv(brains.dat, stringsAsFactors=FALSE)
> brains$class <- factor(brains$class)
> 
> library(png)
> 
> sizes <- t(sapply(brains$img, function(x) dim(readPNG(x))))
> brains$height <- sizes[,1]
> brains$width  <- sizes[,2]
> brains
                species       class brain_weight neurons          img height width
1              Capybara non-primate         48.2    0.30 capybara.png     31    70
2        Rhesus Macaque     primate         69.9    1.71   rhesus.png     63    75
3       Western Gorilla     primate        377.0    9.10  gorilla.png     71    95
4                 Human     primate       1232.0   16.30    human.png     98   117
5 African Bush Elephant non-primate       2848.0    5.59 elephant.png     98   168
> 

我没有看到任何方法将下面调用中每张图片的高度和宽度设置为geom_image()：

library(ggimage)
library(ggplot2)
col <- ifelse(brains$class=="primate", "blue", "red")
ggplot(brains, aes(x=brain_weight, y=neurons)) +
    geom_text(aes(label=species), color=col, hjust="inward") +
    geom_image(aes(image=img)) + theme_bw()

我从中得到的结果是所有图像大小都相同，宽度我认为。我忽略了更好地定位标签所需的调整。

修改：这是一个问题，https://github.com/GuangchuangYu/ggimage/issues/6。作者说这还不支持，但也许有一种解决方法？

Answer 1

支持示例显示在https://github.com/GuangchuangYu/ggimage/issues/6上。