O central no ggplot
são sempre os seus dados. Seus dados estão em um formato numérico e, por isso, o ggplot
acredita ser melhor usar uma escala contínua em X e fazer a divisão de tal forma que os intervalos que apareçam sejam de2.5
em 2.5
.
Há várias formas de corrigir isso:
- Explicitar o intervalo que você deseja mantendo a escala contínua;
- Transformar os dados em categóricos para forçar que todos os dados apareçam;
- Transformar os dados em data para usar a escala de data no gráfico.
A opção 2 não será mostrada porque é um opção que, embora possa resolver algum problema específico, também pode incluir novos problemas (como a forma de ordenar os valores, etc) e não corresponde a uma representação adequada da variável.
1. Intervalos da escala numérica
Para fazer isso basta incluir as quebras desejadas na escala numérica com o argumentos breaks
da função scale_x_continuous()
.
voo %>% group_by(month, origin) %>%
summarize(media_delay = mean(dep_delay, na.rm = T)) %>%
ggplot() +
geom_line(aes(x = month, y = media_delay, group = origin, col = origin)) +
scale_x_continuous(breaks = 1:12)

Para ver mais sobre escalas no ggplot
, veja esse link
2. Escala de tempo
Nesse caso, nem precisaremos definir a escala, mas alterar a variável e confiar nos padrões do ggplot
. Para isso basta transformar a coluna month
numa variável de tipo date
manter o mesmo comando da pergunta para criar o gráfico.
voo %>%
# Adiciona zeros a esquerda
mutate(month = formatC(month, width = 2, flag = "0"),
day = formatC(day, width = 2, flag = "0"),
month = lubridate::ymd(paste0(year, month, day)),
month = lubridate::floor_date(month, "month")) %>%
group_by(month, origin) %>%
summarize(media_delay = mean(dep_delay, na.rm = T)) %>%
ggplot() +
geom_line(aes(x = month, y = media_delay, group = origin, col = origin))

voo$month <- as.factor(voo$month)
antes de plotar e deu certo.factor(voo$month)
. Ele retorna no console as entradas e os levels mas não transforma em factors (eu não sabia).