Início / coding / Perguntas / 79075604
Accepted
M.O
Asked: 2024-10-11 01:46:16 +0800 CST

Substituir texto do eixo x por imagem para gráfico facetado ggplot2

  • 772

Estou trabalhando facet_wrap()para traçar probabilidades para três variáveis ​​discretas.

Abaixo está o gráfico facetado que consegui fazer:

insira a descrição da imagem aqui Agora quero adicionar o logotipo dos times correspondentes em vez do texto do eixo.

Aqui está um exemplo do meu dataframe:

structure(list(ID = c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 
2L, 2L), type = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 
2L, 3L, 3L), levels = c("Domicile", "Nul", "Extérieur"), class = "factor"), 
    prob = c(0, 0, 0, 0, 0, 0, 0.3343, 0.1349, 0.3009, 0.2453, 
    0.3648, 0.6197), team = c("Reims", "Toulouse", "Nul", "Nul", 
    "Rennes", "Brest", "Reims", "Toulouse", "Nul", "Nul", "Rennes", 
    "Brest"), image_file = c("~/teamlg/Reims.png", "~/teamlg/Toulouse.png", 
    "Nul", "Nul", "~/teamlg/Rennes.png", "~/teamlg/Brest.png", 
    "~/teamlg/Reims.png", "~/teamlg/Toulouse.png", "Nul", "Nul", 
    "~/teamlg/Rennes.png", "~/teamlg/Brest.png"), game = c("Reims - Rennes", 
    "Toulouse - Brest", "Reims - Rennes", "Toulouse - Brest", 
    "Reims - Rennes", "Toulouse - Brest", "Reims - Rennes", "Toulouse - Brest", 
    "Reims - Rennes", "Toulouse - Brest", "Reims - Rennes", "Toulouse - Brest"
    ), frame = c("a", "a", "a", "a", "a", "a", "b", "b", "b", 
    "b", "b", "b"), frame2 = c("a", "a", "b", "b", "c", "c", 
    "d", "d", "e", "e", "f", "f")), row.names = c(NA, -12L), class = c("tbl_df", 
"tbl", "data.frame"))

Já criei uma image_filevariável no meu dataframe com os caminhos correspondentes dos logotipos de cada time.

Então adiciono uma labelcoluna primeiro:

fr$labels<- labels <- ifelse(fr$type != "Nul", sprintf("<img src='%s' width='50' height='50'/>", fr$image_file),"Nul")

Então eu ploto da seguinte forma:

f <- ggplot(fr, aes(x = type, y = prob,fill = type, group = type))
f<-f+geom_col() +
  geom_text(aes(label = ifelse(prob > 0,paste0(" ",
                                             scales::percent(prob, accuracy = 0.01)),""),
                color = type),fontface = "bold",family = "Oswald", size = 4,vjust = -1)+
  scale_y_continuous(labels = scales::percent_format(accuracy = 1),expand = expansion(add = c(0,0.25)))+
  ##adding the labels variable in the scale to get the logos###
  scale_x_discrete(name = NULL, label = labels) +
  theme(
    axis.text.x = ggtext::element_markdown()
  )+
  facet_wrap(~game, scale = "fixed",axes = "all_x",as.table = TRUE,ncol=1)+
  labs(subtitle = "Estimations après simulation de Monte Carlo sur un paramètre interne")+
  transition_states(frame2, wrap = FALSE)+
  shadow_mark(past = TRUE)+
  enter_fly(y_loc = 0)
f

Como você pode ver, isso não pega o logotipo do time correspondente, mas sim as três primeiras linhas da labelscoluna que adicionei. E também repete o mesmo para o segundo gráfico abaixo.

insira a descrição da imagem aqui

Como eu poderia obter os logos corretos correspondentes a cada time para que eu tenha no eixo x: "Logo 1" - "Nul" - "Logo2" e a mesma sequência com logos diferentes para o segundo gráfico? Obrigado pela ajuda.

1 respostas

  1. Best Answer

    Aqui está uma opção para atingir o resultado desejado, que usa uma variável auxiliar a ser mapeada, xo que garante que você obtenha a ordem desejada para as categorias, um vetor nomeado para atribuir os rótulos às categorias da coluna auxiliar e, finalmente, usa scales="free_x"´ in facet_wrap`:

    library(tidyverse)
library(gganimate)
library(ggtext)

# Download logos and store in a temp dir
path <- tempdir()

logos <- list(
  Rennes = "https://upload.wikimedia.org/wikipedia/de/thumb/b/b6/Stade_Rennais_Football_Club.svg/201px-Stade_Rennais_Football_Club.svg.png",
  Brest = "https://upload.wikimedia.org/wikipedia/de/thumb/c/cb/Stade_Brestois_29.svg/193px-Stade_Brestois_29.svg.png",
  Toulouse = "https://upload.wikimedia.org/wikipedia/de/thumb/0/0a/FC_Toulouse_Logo.svg/239px-FC_Toulouse_Logo.svg.png",
  Reims = "https://upload.wikimedia.org/wikipedia/de/thumb/9/9e/Stade_Reims_Logo.svg/237px-Stade_Reims_Logo.svg.png"
)

purrr::iwalk(logos, ~ download.file(.x, file.path(path, paste0(.y, ".png"))))
 
fr <- fr |>
  mutate(
    logo = ifelse(type != "Nul",
      sprintf("<img src='%s' width='50' height='50'/>", file.path(path, basename(image_file))),
      "Nul"
    )
  ) |>
  # Create a properly ordered variable to be mapped on x
  arrange(game, type) |>
  mutate(
    type_logo = paste(game, type, gsub("\\.png", "", basename(image_file)), sep = "."),
    type_logo = fct_inorder(type_logo)
  )

# Create named vector of labels
labels <- fr |>
  distinct(
    type_logo, logo
  ) |> 
  tibble::deframe()

f <- ggplot(fr, aes(x = type_logo, y = prob, fill = type, group = type))
f <- f + geom_col() +
  geom_text(aes(
    label = ifelse(prob > 0, paste0(
      " ",
      scales::percent(prob, accuracy = 0.01)
    ), ""),
    color = type
  ), fontface = "bold", family = "sans", size = 4, vjust = -1) +
  scale_y_continuous(
    labels = scales::percent_format(accuracy = 1),
    expand = expansion(add = c(0, 0.25))
  ) +
  ## adding the labels variable in the scale to get the logos###
  scale_x_discrete(name = NULL, labels = labels) +
  theme(
    axis.text.x = ggtext::element_markdown()
  ) +
  facet_wrap(~game, scale = "free_x", axes = "all_x", as.table = TRUE, ncol = 1) +
  labs(subtitle = "Estimations après simulation de Monte Carlo sur un paramètre interne")

f <- f +
  transition_states(frame2, wrap = FALSE) +
  shadow_mark(past = TRUE) +
  enter_fly(y_loc = 0)

f

    • 1

relate perguntas