comment remplacer les nombres sur l'axe X par des dates lors de l'utilisation de l'intrigue dans R?

Vous pouvez soit l'étiquette de l'axe-vous ou obtenir des R pour le faire pour vous en créant un vecteur de dates pour vos observations à l'aide de la "Date" classe. Voici un exemple:

f <- c(2,1,5,4,8,9,5,2,1,4,7)
dates <- seq(as.Date("04/01/2012", format = "%d/%m/%Y"),
             by = "days", length = length(f))

plot(dates, f)

dates finit par être:

> dates
 [1] "2012-01-04" "2012-01-05" "2012-01-06" "2012-01-07" "2012-01-08"
 [6] "2012-01-09" "2012-01-10" "2012-01-11" "2012-01-12" "2012-01-13"
[11] "2012-01-14"

et l'intrigue ressemble à ceci:

Si vous avez besoin de plus de contrôle et de ce que les étiquettes exactement comme vous les avez, vous devez supprimer le dessin de l'axe des x, puis l'ajouter manuellement à l'aide de axis.Datepar exemple

plot(dates, f, xaxt = "n")
axis.Date(side = 1, dates, format = "%d/%m/%Y")

qui produit

Vous pouvez également faire pivoter les étiquettes de l'axe des y, à dire en utilisant las = 2.

Voir ?axis.Date?strftime et ?as.Date pour plus de détails.

Plus de contrôle sur le placement des étiquettes à l'aide de axis.Date

Pour remplacer la valeur par défaut heuristique pour les tiques de placement, de spécifier les emplacements pour les tiques à l'aide de la at argument. Par exemple, avec une plus longue date de la séquence de 700 jours, on peut placer des étiquettes au début de chaque mois:

set.seed(53)
f <- rnorm(700, 2)
dates <- seq(as.Date("04/01/2012", format = "%d/%m/%Y"),
             by = "days", length = length(f))
head(f)

Le tracé est un peu plus complexe, mais pas beaucoup de

op <- par(mar = c(7,4,4,2) + 0.1) ## more space for the labels
plot(dates, f, xaxt = "n", ann = FALSE)
labDates <- seq(as.Date("01/01/2012", format = "%d/%m/%Y"), tail(dates, 1),
                by = "months")
axis.Date(side = 1, dates, at = labDates, format = "%b %y", las = 2)
title(ylab = "f") ## draw the axis labels
title(xlab = "dates", line = 5) ## push this one down a bit in larger margin
par(op) ## reset margin

Il en résulte:

Vous pouvez varier ce thème, par exemple, étiquette de chaque mois, de petites tiques pour les autres mois

op <- par(mar = c(7,4,4,2) + 0.1) ## more space for the labels
plot(dates, f, xaxt = "n", ann = FALSE)
labDates <- seq(as.Date("01/01/2012", format = "%d/%m/%Y"), tail(dates, 1),
                by = "2 months")
## new dates for minor ticks
minor <- seq(as.Date("01/02/2012", format = "%d/%m/%Y"), tail(dates, 1),
             by = "2 months")
axis.Date(side = 1, dates, at = labDates, format = "%b %y", las = 2)
## add minor ticks with no labels, shorter tick length
axis.Date(side = 1, dates, at = minor, labels = FALSE, tcl = -0.25)
title(ylab = "f") ## draw the axis labels
title(xlab = "dates", line = 5) ## push this one down a bit in larger margin
par(op) ## reset margin

qui résultats dans

Le point est, si vous n'aimez pas les valeurs par défaut, vous avez plein contrôler l'emplacement de l'axe est étiquetés, simplement en créant le vecteur des dates pour les emplacements des étiquettes/graduations que vous désirez.