Antes de mais nada, vamos criar os dados que serão usados para reproduzir o problema e depois para demonstrar a solução.
set.seed(123)
dados <- data.frame(data = seq(Sys.Date(), by = "-1 year", length.out = 100),
val = rnorm(100, 100, 15))
Com esse objeto dados
, podemos criar um gráfico com problemas similares com o código abaixo:
library(ggplot2)
ggplot(dados, aes(data, val)) +
geom_line() +
scale_x_date(date_labels = "%Y", breaks = "10 years")
Como se nota na imagem, ocorre o problema em que, apesar de 10 anos de invervalo entre um tick e outro, eles não estão nos multiplus de 10 (1930, 1940, etc...).
Para resolver isso podemos indicar aquelas datas que devem aparecer nos ticks com o argumento breaks
. Podemos criar essas datas com a função seq
(me modo similar ao feito para criar os dados). Assim teríamos
ggplot(dados, aes(data, val)) +
geom_line() +
scale_x_date(date_labels = "%Y",
breaks = seq(as.Date("1920-01-01"), by = "10 years", length.out = 11))
Importante ressaltar que ao criarmos essa sequência de datas indicamos:
- Em que data ela começava (janeiro de 1920)
- O tamanho dos "pulos" entre uma data e outra (10 anos)
- Qual o tamanho que a sequência deveria ter (11 elementos)
Há outras formas de criar essas sequências, seja incluindo um objeto que a sequência deve acompanhar (ou seja ter o mesmo tamanho), argumento along.with
, ou então indicar a data em que a sequência deve terminar, argumento to
.