Início / coding / Perguntas / 79305377
Accepted
Daniel Lobo
Asked: 2024-12-24 18:50:04 +0800 CST

Várias linhas gris quando o eixo secundário é usado

  • 772

Eu tenho abaixoggplot

library(ggplot2)
ggplot (structure(list(Group1 = c('A','B', 'B','A', 'B','B', 'A', 'B', 'B'), Val = c(40.707, -22.513, -3.501, -12.884, -19.668,
-5.976, -16.721, -15.838, -5.59)), row.names = c(NA, -9L), class = "data.frame"), aes (x = Group1, y = Val)) +
geom_line () +
scale_y_continuous (breaks = c(0, -22.51, 20.31, 41.72, 63.13, 84.54) ,
sec.axis = sec_axis(~.,
breaks = c(0, -22.51, 20.31, 41.72, 63.13, 84.54)))

Os códigos acima geram o gráfico abaixo

insira a descrição da imagem aqui

Como você pode ver, há várias linhas de grade horizontais perto de pontos como 20,31 e 0 etc.

Você poderia me ajudar a entender de onde eles vêm e como me livrar deles?

1 respostas

  1. Best Answer

    O problema não tem nada a ver com o eixo secundário. As linhas de grade adicionais são as linhas de grade menores que são visíveis devido às suas quebras irregulares (maiores). Você pode soltá-las usando, por exemplo minor_breaks=NULL:

    library(ggplot2)

ggplot(structure(list(Group1 = c("A", "B", "B", "A", "B", "B", "A", "B", "B"), Val = c(
  40.707, -22.513, -3.501, -12.884, -19.668,
  -5.976, -16.721, -15.838, -5.59
)), row.names = c(NA, -9L), class = "data.frame"), aes(x = Group1, y = Val)) +
  geom_line() +
  scale_y_continuous(
    breaks = c(0, -22.51, 20.31, 41.72, 63.13, 84.54),
    sec.axis = sec_axis(~.,
      breaks = c(0, -22.51, 20.31, 41.72, 63.13, 84.54)
    ),
    minor_breaks = NULL
  )

    EDIT E se você quiser pequenas quebras nos pontos médios das quebras, você pode fazer:

    library(ggplot2)

breaks = c(0, -22.51, 20.31, 41.72, 63.13, 84.54)

minor_breaks <- sort(breaks)[-1] - diff(sort(breaks)) / 2

ggplot(structure(list(Group1 = c("A", "B", "B", "A", "B", "B", "A", "B", "B"), Val = c(
  40.707, -22.513, -3.501, -12.884, -19.668,
  -5.976, -16.721, -15.838, -5.59
)), row.names = c(NA, -9L), class = "data.frame"), aes(x = Group1, y = Val)) +
  geom_line() +
  scale_y_continuous(
    breaks = breaks,
    minor_breaks = minor_breaks,
    sec.axis = sec_axis(~.,
      breaks = breaks
    )
  )

    • 0

relate perguntas