Les étiquettes de date se chevauchent lors de la mise en place de plusieurs tracés ggplot sur une seule page

Question

J'essaie de placer plusieurs tracés de séries temporelles ggplot2 sur une page en utilisant la fonction arrange() du paquet gridExtra. Malheureusement, je constate que les étiquettes de l'axe des x sont poussées ensemble; il semble que l'intrigue place le même nombre d'étiquettes sur l'axe des X qu'un tableau à pleine page, même si mes graphiques ne prennent qu'un quart de page. Y a-t-il une meilleure manière de faire cela? Je préférerais ne pas avoir à définir manuellement des points, car je vais traiter avec un grand nombre de graphiques qui couvrent des plages de dates différentes et ont des fréquences différentes.

Voici un exemple de code qui réplique le problème.

dfm <- data.frame(index=seq(from=as.Date("2000-01-01"), length.out=100, by="year"), 
    x1=rnorm(100), 
    x2=rnorm(100)) 
mydata <- melt(dfm, id="index") 

pdf("test.pdf") 
plot1 <- ggplot(mydata, aes(index, value, color=variable))+geom_line() 
plot2 <- ggplot(mydata, aes(index, value, color=variable))+geom_line() 
plot3 <- ggplot(mydata, aes(index, value, color=variable))+geom_line() 
plot4 <- ggplot(mydata, aes(index, value, color=variable))+geom_line() 
arrange(plot1, plot2, plot3, plot4, ncol=2, nrow=2) 
dev.off() 

Answer 1

Pivoter l'axe des étiquettes

+ opts(axis.text.x=theme_text(angle=45, hjust=1)) 

Notez que opts est obsolète dans les versions actuelles de ggplot2. Cette fonctionnalité a été déplacée theme():

+ theme(axis.text.x = element_text(angle = 45, hjust = 1)) 

ou diluer l'axe x

+scale_x_datetime(major = "10 years") 

de passer automatiquement les étiquettes, je pense que la fonction organiser() doit être tripoté (bien que je je ne sais pas comment).

Answer 2

J'ai écrit cette fonction pour renvoyer les ruptures majeures de l'axe principal étant donné que vous voulez un certain nombre de ruptures majeures. Donc, au lieu de toujours fixer les ruptures à 10 ans, il produira un nombre fixe de ruptures à de bons intervalles.

+scale_x_date(major = year.range.major()) 

ou

+scale_x_date(major = year.range.major(n=3))