Início / coding / Perguntas / 78821442
Accepted
Melanie Baker
Asked: 2024-08-01 22:14:57 +0800 CST

Adicionar item de rótulo à legenda semelhante a geom_label_repel()

  • 772

Eu tenho um gráfico de riqueza de espécies que possui nove linhas. Rotulei cada linha no final usando geom_label_repel() com o número quadrático apropriado. Quero adicionar à minha legenda uma caixa de etiqueta preta semelhante com um número 1 ou um hash (#) com 'Quadrat Number' escrito ao lado.

Este é meu enredo atual:

insira a descrição da imagem aqui

Esta é uma versão editada em PowerPoint que gostaria que a legenda se parecesse com:

insira a descrição da imagem aqui

Subconjunto de dados:

dados para gráfico (índice):

structure(c("function (..., list = character(), package = NULL, lib.loc = NULL, ", 
"    verbose = getOption(\"verbose\"), envir = .GlobalEnv, overwrite = TRUE) ", 
"{", "    fileExt <- function(x) {", "        db <- grepl(\"\\\\.[^.]+\\\\.(gz|bz2|xz)$\", x)", 
"        ans <- sub(\".*\\\\.\", \"\", x)"), dim = c(6L, 1L), dimnames = list(
    c("1", "2", "3", "4", "5", "6"), ""), class = "noquote")

rótulos para gráfico (labels_df):

structure(list(Quadrat = structure(1:9, levels = c("1", "2", 
"3", "4", "5", "6", "7", "8", "9"), class = "factor"), Year = c(2024L, 
2024L, 2024L, 2024L, 2024L, 2024L, 2024L, 2024L, 2024L), ID = c("1_24", 
"2_24", "3_24", "4_24", "5_24", "6_24", "7_24", "8_24", "9_24"
), Source = c("Beaver", "Beaver", "Beaver", "Beaver", "Beaver", 
"Beaver", "SSSI", "SSSI", "SSSI"), specNum = c(20L, 21L, 19L, 
6L, 2L, 8L, 15L, 29L, 16L), simpson = c(0.95, 0.952380952380952, 
0.947368421052632, 0.833333333333333, 0.5, 0.875, 0.933333333333333, 
0.96551724137931, 0.9375), shannon = c(2.99573227355399, 3.04452243772342, 
2.94443897916644, 1.79175946922805, 0.693147180559945, 2.07944154167984, 
2.70805020110221, 3.36729582998647, 2.77258872223978), H = c(2.99573227355399, 
3.04452243772342, 2.94443897916644, 1.79175946922805, 0.693147180559945, 
2.07944154167984, 2.70805020110221, 3.36729582998647, 2.77258872223978
), fisher = c(4294967306, 4294967306.5, 4294967305.5, 1073741869.66667, 
268435505.000009, 2147483652, 4294967303.5, 4294967310.5, 4294967304
)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-9L))

Código para plotagem

library(ggplot2)            # for plottin graphs
library(ggrepel)            # for geom_label_repel()
library(pals)               # for lines colour scale

specPlot <- ggplot(index, aes(x=Year, y=specNum, group=Quadrat, color=Quadrat, linetype=Source)) +
  geom_line() +
  geom_point() +
  labs(x='Year', y='Species Richness') +
  scale_colour_manual(values = unname(kovesi.isoluminant_cgo_70_c39(n=9)), guide = "none") +
  scale_linetype_manual(name = NULL, values = c('Beaver' = 'solid', 'SSSI' = 'dashed')) +
  geom_label_repel(data=labels_df,aes(label=Quadrat),
                   direction='y',
                   segment.colour='black',
                   xlim=c(2024,2025),
                   na.rm = TRUE,
                   max.overlaps=100,
                   show.legend = FALSE) +
  theme_classic() +
  theme(legend.position='top',
        legend.direction = 'horizontal',
        text = element_text(size = 14, family = 'Calibri Light')) +
  coord_cartesian(clip='off')

1 respostas

  1. Best Answer

    Aqui está uma opção para alcançar o resultado desejado que falsifica uma legenda para o "rótulo" mapeando aes alphae configurando show.legend=TRUE. No entanto, isso requer alguns ajustes adicionais por meio do override.aesargumento para obter o símbolo desejado.

    Infelizmente, isso também exibirá o rótulo na linetypelegenda e a única opção que encontrei para me livrar disso foi usar o override.aesargumento uma segunda vez.

    library(ggplot2) # for plottin graphs
library(ggrepel) # for geom_label_repel()
library(pals) # for lines colour scale

set.seed(123)

ggplot(index, aes(x = Year, y = specNum, color = Quadrat)) +
  geom_line(aes(linetype = Source, group = Quadrat)) +
  geom_point() +
  labs(x = "Year", y = "Species Richness") +
  scale_colour_manual(values = unname(kovesi.isoluminant_cgo_70_c39(n = 9)), guide = "none") +
  scale_linetype_manual(
    name = NULL, values = c("Beaver" = "solid", "SSSI" = "dashed")
  ) +
  scale_alpha_manual(
    name = NULL, values = 1
  ) +
  geom_label_repel(
    data = subset(index, Year >= max(Year)),
    aes(
      label = Quadrat,
      alpha = "Quadrat Number"
    ),
    direction = "y",
    segment.colour = "black",
    xlim = c(2024, 2025),
    na.rm = TRUE,
    max.overlaps = 100
  ) +
  theme_classic() +
  theme(
    legend.position = "top",
    legend.direction = "horizontal",
    #text = element_text(size = 14, family = "Calibri Light")
  ) +
  coord_cartesian(clip = "off") +
  guides(
    alpha = guide_legend(override.aes = list(label = "#")),
    linetype = guide_legend(override.aes = list(label = "", fill = NA, size = 0))
  )
#> `geom_line()`: Each group consists of only one observation.
#> ℹ Do you need to adjust the group aesthetic?

    • 1

relate perguntas