Estoy descargando datos de la banda de recesión en R a través dequantmod. Ahora esto viene como una información binaria (en formato xts) que se ve así (solo se muestra el primer período de recesión)

1857-01-01  0
1857-02-01  0
1857-03-01  0
1857-04-01  0
1857-05-01  0
1857-06-01  0
1857-07-01  1
1857-08-01  1
1857-09-01  1
1857-10-01  1
1857-11-01  1
1857-12-01  1
1858-01-01  1
1858-02-01  1
1858-03-01  1
1858-04-01  1
1858-05-01  1
1858-06-01  1
1858-07-01  1
1858-08-01  1
1858-09-01  1
1858-10-01  1
1858-11-01  1
1858-12-01  1

Ahora tengo dos problemas:

Me gustaría determinar el inicio y el final de cada período de recesión (es decir, obtener la fecha de inicio y finalización) para cada período de recesión. Como hay ceros intermedios donde no hay recesión, necesito un mecanismo de filtro que a) filtre ceros (esto es fácil), b) asegúrese de que se reconozca cada nuevo período de recesión. Simplemente seleccionar los que aún no funcionan, ya que no hay períodos de recesión individuales, sino simplemente una colección de fechas en las que ha habido una recesión.

Necesito convertirlo en un formato de tabla como este y como se muestra aquíhttp://www.r-bloggers.com/use-geom_rect-to-add-recession-bars-to-your-time-series-plots-rstats-ggplot/

1857-06-01, 1858-12-01 1860-10-01, 1861-06-01 1865-04-01, 1867-12-01 1869-06-01, 1870-12-01 1873-10-01, 1879-03-01

Una vez hecho esto, quiero usarlo como event.lines en la bibliotecaPerformanceAnalytics.

¿Alguien puede ayudarme a hacer esto?

Si quieres descargar la serie para probar, haz

library(quantmod)
getSymbols("USREC",src="FRED")