Cách chèn ảnh vào từng thanh riêng lẻ trong biểu đồ ggplot

Tôi đang cố gắng so sánh các tân binh NBA khác nhau qua các số liệu thống kê khác nhau và tôi nghĩ rằng biểu đồ sẽ trông tuyệt vời nếu tôi có thể thêm khuôn mặt của người chơi vào cuối biểu đồ như trong các biểu đồ r / dữ liệu đẹp mắt . Mã của tôi hiện tại là:

a3 %>%
  ggplot(aes(x = reorder(Player,
                         PPM),
             y = PPM)) +
  geom_bar(stat = "identity",
           aes(fill = Player)) +
  geom_text(aes(label = PPM), size = 3, position = position_dodge(width = 1),
            hjust = -0.1) +
  coord_flip() +
  theme_minimal() +
  xlab("Player") +
  ylab("Points Per Minute") +
  theme(legend.position = "none")

Đây là biểu đồ của tôi hiện tại trông như thế nào

Bạn đã không cung cấp một reprex, vì vậy tôi cần phải làm một cái gì đó. Tôi có thể sẽ làm điều đó như thế này.

library(tidyverse)
library(ggtextures)
library(magick)
#> Linking to ImageMagick 6.9.9.39
#> Enabled features: cairo, fontconfig, freetype, lcms, pango, rsvg, webp
#> Disabled features: fftw, ghostscript, x11

data <- tibble(
  count = c(5, 6, 6, 4, 2, 3),
  animal = c("giraffe", "elephant", "horse", "bird", "turtle", "dog"),
  image = list(
    image_read_svg("http://steveharoz.com/research/isotype/icons/giraffe.svg"),
    image_read_svg("http://steveharoz.com/research/isotype/icons/elephant.svg"),
    image_read_svg("http://steveharoz.com/research/isotype/icons/horse.svg"),
    image_read_svg("http://steveharoz.com/research/isotype/icons/bird.svg"),
    image_read_svg("http://steveharoz.com/research/isotype/icons/turtle.svg"),
    image_read_svg("http://steveharoz.com/research/isotype/icons/dog.svg")
  )
)

ggplot(data, aes(animal, count, fill = animal, image = image)) +
  geom_isotype_col(
    img_height = grid::unit(1, "null"), img_width = NULL,
    ncol = 1, nrow = 1, hjust = 1, vjust = 0.5
  ) +
  coord_flip() +
  guides(fill = "none") +
  theme_minimal()

^{Được tạo vào ngày 2019-11-03 bởi gói reprex (v0.3.0)}