Espero ahora haber interpretado mejor lo que pretendes:
library(zoo)
datIn - read.csv2(D:/L01359/Mis documentos/Downloads/Libro1.csv)
datIn - zoo(datIn[,-1], order.by=as.Date(datIn$fecha, format=%d/%m/%y))
ticks - seq(as.Date(2013-07-01), length=11, by=1 month) - 1 # genero
una secuencia de fines
Hola,
Ya, me lo he imaginado al poco de enviarlo...
De esta forma sà que se respeta la separación por fecha en el eje X...
#--
library(lubridate)
datIn$xlabels - as.Date(dmy(datIn$fecha), format=%Y-%m-%d)
datIn$mes - month(dmy(datIn$fecha), label=T, abbr=T)
datIn$anio -