r - 如何将图像用作图例键字形？

Question

我正在使用图标在 ggplot 中绘制散点图，并且我坚持使用图标生成图例。

ggimage 文档中有一个名为“draw_key_image”的函数，但我真的不明白如何使用它或所需的参数。

文档说“数据 = 包含要在此键中显示的缩放美学的单行数据框”，但这对我没有任何帮助!

https://www.rdocumentation.org/packages/ggimage/versions/0.2.7/topics/draw_key

##Hopefully reproducible code with example data

##Icons downloaded from https://labs.mapbox.com/maki-icons/
library(ggplot2)
library(ggimage)
library(rsvg)

Activity<-"Walk"
x = -2
y = 2.5
icon<-".\\mapbox-maki-a6d16d4\\icons\\shoe-15.svg"
test_data<-data.frame( Activity, x, y, icon)

p_test<-ggplot(data = test_data,
          aes(x = x, 
              y = y))+
  geom_image(aes(image=icon), size=.03)
  p_test

请有人帮我添加一个带有“步行”图标和标签的图例吗？

非常感谢，乔

Answer 1

这个 draw_key 函数应该在“幕后”工作。查看文档

Each geom has an associated function that draws the key when the geom needs to be displayed in a legend. These functions are called draw_key_*(), where * stands for the name of the respective key glyph. The key glyphs can be customized for individual geoms by providing a geom with the key_glyph argument (see layer() or examples below.)

我敢说， ggimage在这方面可能值得更多的发展。

https://github.com/GuangchuangYu/ggimage/issues/18显示当前仅支持三种类型的图例字形，您可以通过更改选项来激活它们(请参阅下面的代码)。还可以更改底层的 draw_key 函数，而不是加载 R 图像，您可以加载图像。不过它必须是 png，所以首先你需要将它转换为 png。

You can find the source code which I modified here

缺点是它目前只接受一张图片。为了将多个图像映射到您的 geom 的美学，您可以从大师 Baptiste 创造的“极简主义”geom 中找到灵感。 https://stackoverflow.com/a/36172385/7941188

library(ggplot2)
library(ggimage)

Activity<-c("Walk1", "Walk2")
x = 1:2
y = 2:3

icon<-"https://raw.githubusercontent.com/mapbox/maki/a6d16d49a967b73d9379890a7b26712b12b8daef/icons/shoe-15.svg"
bitmap <- rsvg::rsvg(icon, height = 50)

png::writePNG(bitmap, "shoe.png", dpi = 144)

test_data<-data.frame( Activity, x, y, icon)

options(ggimage.keytype = "image")

ggplot(data = test_data, aes(x = x, y = y)) +
  geom_image(aes(image=icon, color = Activity), size=.03)

图标变成了 R 标志:



现在让我们修改 draw_key_image 函数。您还需要使用 geom_image 中的 key_glyph 参数调用它。

draw_key_image <- function (data, params, size) {
  kt <- getOption("ggimage.keytype")
if (kt == "image") {
    img <- magick::image_read("shoe.png")
    grobs <- lapply(seq_along(data$colour), function(i) {
      img <- ggimage:::color_image(img, data$colour[i], data$alpha[i])
      grid::rasterGrob(0.5, 0.5, image = img, width = 1, height = 1)
    })
    class(grobs) <- "gList"
    keyGrob <- ggplot2:::ggname("image_key", grid::gTree(children = grobs))
  }
  return(keyGrob)
}

ggplot(data = test_data, aes(x = x, y = y)) +
  geom_image(aes(image=icon, color = Activity), size=.03, 
             key_glyph = draw_key_image) # you need to add this argument

创建于 2020-04-20 由 reprex package (v0.3.0)

有用的线程: convert svg to png