在 ggplot/ggimage 中保持形状和图像的纵横比

Question

我正在尝试使用绘制的形状（例如使用 geom_circle）和图像构建可视化。在这两种情况下，我都希望能够使用坐标专门将它们定位在页面上，而不是使用其中一种内置图表类型。

往下看更新...

但是，我可以得到长宽比正确的圆（即圆形而不是椭圆形）或图像，但不能同时得到两者。在下面的示例中，您可以看到图像显示为正方形时并未显示。

我尝试了各种方法，包括 coord_fixed、scale_size_identity 和 coord_cartesian，但都无济于事。整体输出将是横向的，这就是我设置笛卡尔限制的原因。

这是一个简化版本。在完整版中，我将从数据中获取坐标（我很满意）。

images <-data.frame(url = c("https://upload.wikimedia.org/wikipedia/commons/d/de/Windows_live_square.JPG"))

ggplot(mpg) + 
    ggforce::geom_circle(aes(x0 = displ * 50 - 60, y0 = hwy, r=cty)) +
    #scale_size_identity() +

    # Add Image
    ggimage::geom_image(data = images,
                 aes(x = 4, y = 20, image=url),
                 size = 0.4,
                 hjust = 0.0, 
                 by="height"
        ) +
        coord_cartesian(
            xlim = c(0, 120),
            ylim = c(0, 80),
            expand = FALSE,
            clip = "on"
        )

根据@tjebo 提供的非常有用的意见和进一步调查进行更新。

我现在发现至少有 4 种方法可以将图像添加到绘图中，每种方法各有优缺点。我在下面列出了这些以帮助其他人进行此搜索。

绘制可以添加图像的基本形状

g <- ggplot(mpg) + 
  ggforce::geom_circle(aes(x0 = displ * 50 - 60, y0 = hwy, r=cty))

使用 ggtexture 绘图 - 多幅图像 - 纵横比由 x 和 y 最大值定义 - 最小值

https://rdrr.io/github/clauswilke/ggtextures/man/geom_textured_rect.html

g + ggtextures::geom_textured_rect(data = images, 
                                   aes(xmin = 20, xmax = 60,
                                       ymin = 20, ymax = 60, image = url), 
                                   lty = "blank", # line type of blank to remove border
                                   fill="white", # used to fill transparent areas of image
                                   nrow = 1,
                                   ncol = 1,
                                   img_width = unit(1, "null"),
                                   img_height = unit(1, "null"),
                                   position = "identity") +
  coord_equal() # A fixed scale coordinate system forces a specified ratio between the physical representation of data units on the axes.

使用 ggimage 绘制 - 多个图像 - 由设备定义的方面

g + ggimage::geom_image(data = images,
                        aes(x = 20, y = 40, image=url),
                        size = 0.2,
                        by="height"
  )

使用 cowplot 绘制 - 单图像 - 纵横比

独立绘图面和比例（0-1）

cowplot::ggdraw(g) + 
  cowplot::draw_image(images[[1, "url"]], 
                      x = .5, y = .3, width = 0.5, height = 0.5)

绘图 annotation_custom (ggplot) - 原始方面

似乎使用最宽的高度宽度和中心坐标

image <- magick::image_read(images[[1, "url"]])
rasterImg <- grid::rasterGrob(image, interpolate = FALSE) 
g + annotation_custom(rasterImg, xmin = 00, xmax =200, ymin = 10, ymax = 50)

Answer 1

我强烈认为您可能已经看到了这个线程： - 这是由 ggplot2 专家提出并回答的，例如 Claus Wilke、Baptiste 和 Marco Sandri - 看起来 ggimage 正在缩放到设备。因此，如果您想要一个正方形，则需要保存到一个正方形尺寸的设备中。或者，如果您没有方形图片，当然，尺寸与您使用的图片有关。

我用了see::geom_point2（没有怪异的边框），因为我有种强烈的感觉你没用过ggforce::geom_circle。我添加 aes 调用的地方也有轻微变化。

library(ggimage)
#> Loading required package: ggplot2

images <-data.frame(url = c("https://upload.wikimedia.org/wikipedia/commons/d/de/Windows_live_square.JPG"))

# g <- 
ggplot(mpg) + 
  see::geom_point2(aes(x = displ, y = hwy, size = cty), alpha = 0.2) +
    scale_size_identity() +
  # Add Image
  geom_image(data = images,
             aes(x = 4, y = 20, image=url),
             size = 0.4,
             hjust = 0.0, 
             by = "height"
             )

使用 reprex，将无花果宽度和高度都设置为 3 英寸

^{由 reprex package (v1.0.0)}

于 2021-02-13 创建

Answer 2

另一种方法是 不使用 ggimage - 例如，使用 cowplot 进行自定义注释，使添加图像变得非常简单。

library(ggplot2)
library(cowplot)

p <- ggplot(mpg) + 
  see::geom_point2(aes(x = displ, y = hwy, size = cty), alpha = 0.2) +
  scale_size_identity() 

ggdraw(p) + 
  draw_image("https://upload.wikimedia.org/wikipedia/commons/d/de/Windows_live_square.JPG", 
             x = .5, y = .3, width = 0.5, height = 0.5)

^{由 reprex package (v1.0.0)}

于 2021-02-13 创建

或者，使用 ggtextures 包，稍微调整一下坐标系

this discussion seems relevant

library(ggtextures)
library(ggplot2)
library(tibble)
img_df <- tibble(
  xmin = 1, ymin = 1, xmax = 4, ymax = 4,
  image = "https://upload.wikimedia.org/wikipedia/commons/d/de/Windows_live_square.JPG"
)

ggplot(mpg) + 
  see::geom_point2(aes(x = displ, y = hwy, size = cty), alpha = 0.2) +
  geom_textured_rect(data = img_df, 
                     aes(xmin = xmin, xmax = xmax,
                         ymin = ymin, ymax = ymax, image = image),
                     nrow = 1,
                     ncol = 1,
                     img_width = unit(1, "null"),
                     img_height = unit(1, "null"),
                     position = "identity") +
  coord_equal() # this is then necessary...

^{由 reprex package (v1.0.0)}

于 2021-02-13 创建

在 ggplot/ggimage 中保持形状和图像的纵横比

Maintaining Aspect Ratio of Shapes and Images in ggplot/ ggimage

r

ggplot2

ggforce

ggimage