Início / coding / Perguntas / 79414219
Accepted
Mankka
Asked: 2025-02-05 17:19:34 +0800 CST

Como fazer um gráfico radial uniforme no Ggplot2

  • 772

Estou usando o coord_radialdo ggplot2, mas não consigo fazer os limites do eixo corretos. A estética x (neste caso theta) é um fator e y (r) é um número. Quero que o primeiro nível do fator esteja exatamente em 12 (norte) e os outros níveis sejam distribuídos uniformemente. No exemplo abaixo, a lacuna entre o primeiro e o último nível (A e D) é maior do que as outras lacunas. Entre outras coisas, tentei usar scale_x_discretee expand. Abaixo está um exemplo mínimo, mas meu caso real tem 15 níveis.

library(dplyr)
library(ggplot2)

tibble(lab = c("A", "B", "C", "D"),
       val = rexp(4)) %>%
  ggplot(aes(lab, val, group = 1)) +
  geom_line() +
  coord_radial(r.axis.inside = TRUE)

Gráfico radial que não é uniformemente dividido em quatro partes.

3 respostas

  1. Se você quiser uma lacuna entre o primeiro e o último nível, então você pode adicionar scale_x_discrete(expand = expansion(mult = xxx)))para ajustar a lacuna entre os dados e os eixos. Os padrões são expandir a escala em 5% de cada lado para variáveis ​​contínuas, e em 0,6 unidades de cada lado para variáveis ​​discretas (veja a página de ajuda para scale_x_discrete).

    Não está claro para mim o quanto expandir (depende muito de quantas categorias discretas você tem), mas com um pouco de tentativa e erro, você pode encontrar o gráfico mais bonito.

    set.seed(10)
n <- 15
tibble(lab = LETTERS[1:n], val = rexp(n)) %>%
  ggplot(aes(lab, val, group = 1)) +
  geom_line() +
  coord_radial(r.axis.inside = TRUE) +
  scale_x_discrete(expand = expansion(mult = c(0, 0.08))

    insira a descrição da imagem aqui

    • 2
  2. Best Answer

    Defina expandir o último valor como 1, o que significa adicionar 1 espaço completo após o último valor "D".

    library(ggplot2)

ggplot(data.frame(lab = c("A", "B", "C", "D"),
                  val = rexp(4)),
       aes(lab, val, group = 1)) +
  geom_line() +
  scale_x_discrete(expand = c(0, 0, 0, 1)) +
  coord_radial()

    insira a descrição da imagem aqui

    Teste : Tente executar o código sem coord_radialpara ver o que a expansão está fazendo.

    insira a descrição da imagem aqui

    • 2

  3. As diferentes lacunas entre os níveis são causadas pelo expanddefault para TRUE, em coord_radial(). Então, ao definir expand = FALSE, você obtém lacunas iguais:

    tibble(lab = LETTERS[1:4],
       val = rexp(4)) %>%
ggplot(aes(lab, val, group = 1)) +
geom_line() +
coord_radial(r.axis.inside = TRUE,
             expand = FALSE)

    Primeiro enredo

    O problema agora é que o primeiro e o último nível estão no mesmo lugar. Minha solução não tão elegante para isso é adicionar um extra labnos dados, com NAcomo um valor, e então definir o breakson scale_x_discrete()para que ele não seja plotado.

    tibble(lab = LETTERS[1:4],
       val = rexp(4)) %>%
add_row(lab = "E", val = NA) %>%
ggplot(aes(lab, val, group = 1)) +
geom_line() +
scale_x_discrete(breaks = c("A", "B", "C", "D")) +
coord_radial(r.axis.inside = TRUE,
             expand = FALSE)

    Segundo enredo

    • 1

relate perguntas