Como inserir imagens em cada barra individual em um gráfico ggplot

9

Estou tentando comparar diferentes estreantes da NBA entre diferentes estatísticas, e achei que o gráfico ficaria ótimo se eu pudesse adicionar o rosto do jogador no final do gráfico, como nos gráficos r / dataisbeautiful . Meu código atualmente é este:

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")

É assim que meu gráfico se parece atualmentegostar

Pedro Guizar
fonte
2
Você viu este post, parece bastante relevante: jcarroll.com.au/2019/08/13/ggtext-for-images-as-x-axis-labels
Ben
2
O ggtextpacote parece permitir isto: github.com/clauswilke/ggtext#markdown-in-theme-elements
Jon Primavera

Respostas:

7

Você não forneceu um reprex, então eu preciso inventar algo. Eu provavelmente faria assim.

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()

Criado em 2019-11-03 pelo pacote reprex (v0.3.0)

Claus Wilke
fonte
Obrigado, isso funcionou muito bem! Eu queria perguntar se era possível exibir duas imagens na mesma barra aqui (suponho que mexer com o valor hjust), com algo assim: ggplot (data, aes (animal, count, fill = animal, image = image & x))
Pedro Guizar
Poste uma pergunta de nível superior separada para isso.
Claus Wilke
Só fiz @Claus Wilke stackoverflow.com/questions/58793147/...
Pedro Guizar
Isso é muito útil. Existe um plano para obter ggtextures no CRAN?
stevec 25/04
Não. Agora existe o ggpattern que é muito mais poderoso. github.com/coolbutuseless/ggpattern
Claus Wilke