Inverter os eixos xy no openair (R)?

Tenho um arquivo, de uma ano, e estou dividindo em dia e noite, para depois plotar suas diferenças de desvio padrão em duas linhas, no mesmo gráfico. O que acontece é o seguinte:

Como o desvio padrão foi feito por semana (52 no ano), o eixo x está saindo com unidade de semanas, mas preciso que saia em meses (mas só os nomes do eixo, o desvio padrão deve continuar em semanas). Quando consegui corrigir isso (de semana para meses, só no rótulo), o eixo se inverte! Os meses ficaram no eixo y e o desvio padrão ficou no x. Alguém sabe como resolver. Estou seguindo uma apostila do openair.

#aqui divido o arquivo entre dia e noite, pelas horas gra1 <- selectByDate(mydata, year = 2018, hour = 9:21) gra2 <- selectByDate(mydata, year = 2018, hour = c(22:23, 0:8))  # pego a coluna dif, e uso para calcular o desvio padrão por semanas test1 <- tapply(gra1$  dif, format(gra1$  date,"%Y-%W"), sd, na.rm = TRUE) test2 <- tapply(gra2$  dif, format(gra2$  date,"%Y-%W"), sd, na.rm = TRUE)  # converte para meses, se não colocar essa parte, o gráfico (eixo x) fica em semanas, se colocar, fica com o eixo invertifo date1 <- seq(gra1$  date[1], gra1$  date[nrow(gra1)], length = nrow(test1)) date2 <- seq(gra2$  date[1], gra2$  date[nrow(gra2)], length = nrow(test2))  #plota a primeira linha, o dp do dia plot(test1, date1, type = "l",lwd = 2, col = "red", xlab = "Meses/2018", ylab = "Desvio Padrão (ºC)", main = "Desvio Padrão - Dia/Noite") #plota a segunda linha, o dp da noite lines(test2, date2,type = "l", lwd = 2, col = "blue") 

Se alguém souber ajudar, agradeço.