ggimage: aes(альфа) не угасает, как ожидалось

Question

ggimage: aes(альфа) не угасает, как ожидалось

Проблема: Когда я устанавливаю альфа для изображений, кажется, что он отлично работает с небольшим образцом, но начинает давать сбой или меняться, если много точек строятся с использованием изображений.

Общая цель: показать, сколько животных "пропало" после некоторых событий в данной среде обитания (т. Е. Раньше было 20 видов, сейчас осталось только 4, поэтому всего 20 изображений, из которых 4 полноцветных и 16 блеклых / серых)). У меня есть только 2 альфа-уровня (жестко закодированные в данных): 0,03 (для блеклых) и 1 (для не блеклых).

Мои образцы данных имеют 200 строк, расположенных в псевдо-вафельном графике. Используя приведенный ниже код, если я отображаю только 40 строк sample_n(40), тогда каждое изображение получает правильную альфа. Если я график 80 строк sample_n(80), тогда только несколько изображений применяют альфа, и это кажется менее "блеклым". Если я граф все 200 строк sample_n(200) тогда ни одна альфа не будет применена ни к каким точкам. Изображения ниже.

представлены: данные здесь (я использую pokemon для простого представления, но на самом деле я использую локальные файлы.png. Проблема появляется в обоих)

код:

library(tidyverse)
library(ggimage)
library(readr)

biomass <- read_csv("biomass.csv")
set.seed(10)
biomass %>%
  sample_n(40) %>%
  ggplot(aes(
    x = row,
    y = coln,
    color = animals,
    alpha = alph
  )) +
  geom_pokemon(aes(image = case_when(
    animals == "Cnidarians" ~ "tentacool",
    animals == "Molluscs" ~ "shellder",
    animals == "Fish" ~ "magikarp"
  )), size = 0.04) +
  scale_alpha_identity() +
  theme_void() +
  theme(legend.position = "none")

Графики 40 рядов - вы можете увидеть, что каждая группа животных имеет какой-то полный цвет, некоторые выцветшие. Медузы очень блеклые, почти незаметные: образ