Início / coding / Perguntas / 79593160
Accepted
MCornejo
Asked: 2025-04-26 02:56:24 +0800 CST

No ggplot2, como posso exibir em uma única legenda a cor da linha e o formato do ponto mapeados para o vetor de strings de caracteres únicos?

  • 772

Não encontrei nenhuma postagem que abordasse esse problema especificamente.

No gráfico a seguir, gostaria de usar uma coluna de strings de um único caractere como formas para geom_point(). A vinheta de ajuda ggplot2-specs indica que uma única string de um único caractere pode ser especificada.

Quero ver "4", "6" e "8" usados ​​como formas de pontos (em vez de círculo, triângulo e quadrado). Mas parece que não funciona. E se funcionasse, gostaria de ver uma legenda (em vez de duas).

library(dplyr); library(ggplot2)

mtcars2 <- mtcars %>% 
  inner_join(data.frame(cyl=c(4,6,8), 
                        cyl_word=c('four','six','eight')))

p <- ggplot(mtcars2, aes(mpg, wt, color=cyl_word)) + geom_line()

p + geom_point(aes(shape=factor(cyl)), size=3)

ponto_geográfico

Usar " geom_text()em vez de geom_point()" produz algo mais próximo dos resultados desejados. O que falta é que as formas ("4", "6", "8") não aparecem na legenda (suspeito que a letra "a" na legenda seja o indicador de geom_text()e que ela seja imutável... certo?)

p + geom_text(aes(label=factor(cyl)), size=6)

insira a descrição da imagem aqui

Não sei se talvez eu devesse usarscale_shape_?()

2 respostas

  1. Best Answer

    Podemos mapear a forma cyl_worde forçar formas manuais:

    ggplot(mtcars2, aes(mpg, wt, color=cyl_word)) +
  geom_line() +
  geom_point(aes(shape=cyl_word), size=3) +
  scale_shape_manual(values = setNames(as.character(mtcars2$cyl), mtcars2$cyl_word))

    gráfico mtcars com letras na legenda

    Claramente a ordem parece não numérica, o que pode ser resolvido com factors.

    • 2

  2. Você pode usar:

    mostrar.legenda = F

    parâmetro para remover os "a"s na legenda

    library(dplyr); library(ggplot2)

mtcars2 <- mtcars %>% 
  inner_join(data.frame(cyl=c(4,6,8), 
                        cyl_word=c('four','six','eight')))

p <- ggplot(mtcars2, aes(mpg, wt, color=cyl_word)) + geom_line()
p + geom_text(aes(label=factor(cyl)), 
              show.legend = F,
              size=6)

    • 1

relate perguntas