working/tests/geology.R

library(tidyverse)
library(lubridate)

dat <- read.csv(text = "gage,start_date,end_date,data_type,color
12044900,3/26/1994,9/29/2011,Discharge,#a6bddb
                12061500,7/1/1943,10/24/2018,Discharge,#a6bddb
                12166300,3/25/2014,9/30/2015,Discharge,#a6bddb
                12170300,11/15/2013,9/5/2016,Discharge,#a6bddb
                12186000,10/1/1917,10/24/2018,Discharge,#a6bddb
                12187500,7/1/1914,7/15/2017,Discharge,#a6bddb
                12189500,4/1/1911,10/18/2018,Discharge,#a6bddb
                12200500,10/1/1940,10/20/2018,Discharge,#a6bddb
                12205000,10/1/1937,10/24/2018,Discharge,#a6bddb
                12208000,8/28/1920,10/24/2018,Discharge,#a6bddb
                12210000,9/1/1920,10/24/2018,Discharge,#a6bddb
                12210700,10/15/2004,10/24/2018,Discharge,#a6bddb
                12213100,10/1/1966,10/24/2018,Discharge,#a6bddb
                12214300,1/1/2011,10/1/2012,Discharge,#a6bddb
                12214350,1/1/2011,9/29/2013,Discharge,#a6bddb
                12214500,7/1/1948,9/29/2013,Discharge,#a6bddb
                12044900,6/15/2011,11/13/2015,Turbidity,brown
                12113390,11/27/2013,10/23/2018,Turbidity,brown
                12166150,3/27/2014,10/5/2015,Turbidity,brown
                12166300,10/3/2014,10/21/2018,Turbidity,brown
                12170300,11/15/2013,10/1/2017,Turbidity,brown
                12186000,9/23/2011,10/21/2015,Turbidity,brown
                12187500,10/20/2011,12/8/2015,Turbidity,brown
                12189500,9/23/2011,10/25/2018,Turbidity,brown
                12200500,10/26/2015,4/4/2018,Turbidity,brown
                12208000,11/2/2013,10/24/2018,Turbidity,brown
                12213100,10/29/2011,10/3/2017,Turbidity,brown
                12214350,4/22/2011,9/28/2013,Turbidity,brown
                12214500,4/21/2011,10/1/2013,Turbidity,brown
                12044900,10/5/1994,NA,SSC,grey
                12044900,10/22/1994,NA,SSC,grey
                12044900,11/4/1994,NA,SSC,grey
                12044900,11/16/1994,NA,SSC,grey
                12044900,12/21/1994,NA,SSC,grey
                12044900,1/12/1995,NA,SSC,grey
                12044900,1/26/1995,NA,SSC,grey
                12044900,2/2/1995,NA,SSC,grey
                12044900,2/19/1995,NA,SSC,grey
                12044900,2/20/1995,NA,SSC,grey
                12044900,3/2/1995,NA,SSC,grey
                12044900,3/16/1995,NA,SSC,grey
                12044900,3/29/1995,NA,SSC,grey
                12044900,4/12/1995,NA,SSC,grey
                12044900,7/13/1995,NA,SSC,grey
                12044900,9/19/1995,NA,SSC,grey
                12044900,9/20/1995,NA,SSC,grey
                12044900,10/27/1995,NA,SSC,grey
                12044900,11/11/1995,NA,SSC,grey
                12044900,2/15/1996,NA,SSC,grey
                12044900,3/13/1996,NA,SSC,grey
                12044900,4/10/1996,NA,SSC,grey
                12044900,5/9/1996,NA,SSC,grey
                12044900,6/26/1996,NA,SSC,grey
                12044900,9/26/1996,NA,SSC,grey
                12044900,10/25/1996,NA,SSC,grey
                12044900,11/15/1996,NA,SSC,grey
                12044900,12/10/1996,NA,SSC,grey
                12044900,1/9/1997,NA,SSC,grey
                12044900,1/31/1997,NA,SSC,grey
                12044900,2/26/1997,NA,SSC,grey
                12044900,3/20/1997,NA,SSC,grey
                12044900,4/17/1997,NA,SSC,grey
                12044900,5/14/1997,NA,SSC,grey
                12044900,6/5/1997,NA,SSC,grey
                12044900,7/3/1997,NA,SSC,grey
                12044900,7/30/1997,NA,SSC,grey
                12044900,10/15/1997,NA,SSC,grey
                12044900,12/11/1997,NA,SSC,grey
                12044900,11/2/2005,NA,SSC,grey
                12044900,12/5/2005,NA,SSC,grey
                12044900,12/29/2005,NA,SSC,grey
                12044900,5/4/2006,NA,SSC,grey
                12044900,5/17/2006,NA,SSC,grey
                12044900,11/3/2006,NA,SSC,grey
                12044900,11/6/2006,NA,SSC,grey
                12061500,2/6/1996,NA,SSC,grey
                12061500,2/8/1996,NA,SSC,grey
                12061500,2/13/1996,NA,SSC,grey
                12061500,3/13/1996,NA,SSC,grey
                12061500,4/17/1996,NA,SSC,grey
                12061500,5/29/1996,NA,SSC,grey
                12061500,7/25/1996,NA,SSC,grey
                12061500,9/20/1996,NA,SSC,grey
                12061500,10/16/1996,NA,SSC,grey
                12061500,11/19/1996,NA,SSC,grey
                12061500,11/27/1996,NA,SSC,grey
                12061500,12/19/1996,NA,SSC,grey
                12061500,12/31/1996,NA,SSC,grey
                12061500,1/16/1997,NA,SSC,grey
                12061500,1/30/1997,NA,SSC,grey
                12061500,2/20/1997,NA,SSC,grey
                12061500,3/18/1997,NA,SSC,grey
                12061500,4/11/1997,NA,SSC,grey
                12061500,5/8/1997,NA,SSC,grey
                12061500,6/13/1997,NA,SSC,grey
                12061500,7/16/1997,NA,SSC,grey
                12061500,8/14/1997,NA,SSC,grey
                12061500,9/17/1997,NA,SSC,grey
                12061500,11/13/1997,NA,SSC,grey
                12061500,11/29/1997,NA,SSC,grey
                12061500,12/16/1997,NA,SSC,grey
                12061500,12/18/1997,NA,SSC,grey
                12061500,1/7/1998,NA,SSC,grey
                12061500,1/23/1998,NA,SSC,grey
                12061500,2/12/1998,NA,SSC,grey
                12061500,2/18/1998,NA,SSC,grey
                12061500,3/20/1998,NA,SSC,grey
                12061500,1/6/2010,NA,SSC,grey
                12061500,1/12/2010,NA,SSC,grey
                12061500,1/13/2010,NA,SSC,grey
                12061500,3/30/2010,NA,SSC,grey
                12061500,1/21/2012,NA,SSC,grey
                12089970,8/24/2010,NA,SSC,grey
                12089970,9/10/2010,NA,SSC,grey
                12089970,9/29/2010,NA,SSC,grey
                12089970,10/8/2010,NA,SSC,grey
                12089970,10/19/2010,NA,SSC,grey
                12089970,10/28/2010,NA,SSC,grey
                12089970,11/10/2010,NA,SSC,grey
                12089970,11/24/2010,NA,SSC,grey
                12089970,12/9/2010,NA,SSC,grey
                12089970,12/14/2010,NA,SSC,grey
                12089970,1/14/2011,NA,SSC,grey
                12089970,2/10/2011,NA,SSC,grey
                12089970,3/10/2011,NA,SSC,grey
                12089970,7/16/2011,NA,SSC,grey
                12089970,9/16/2011,NA,SSC,grey
                12089970,9/30/2011,NA,SSC,grey
                12113390,2/7/2013,NA,SSC,grey
                12113390,3/13/2013,NA,SSC,grey
                12113390,4/5/2013,NA,SSC,grey
                12113390,4/8/2013,NA,SSC,grey
                12113390,5/13/2013,NA,SSC,grey
                12113390,6/19/2013,NA,SSC,grey
                12113390,11/21/2013,NA,SSC,grey
                12113390,12/2/2013,NA,SSC,grey
                12113390,1/11/2014,NA,SSC,grey
                12113390,2/14/2014,NA,SSC,grey
                12113390,2/18/2014,NA,SSC,grey
                12113390,3/6/2014,NA,SSC,grey
                12113390,4/17/2014,NA,SSC,grey
                12113390,6/11/2014,NA,SSC,grey
                12113390,7/23/2014,NA,SSC,grey
                12113390,9/24/2014,NA,SSC,grey
                12113390,10/8/2014,NA,SSC,grey
                12113390,10/22/2014,NA,SSC,grey
                12113390,10/23/2014,NA,SSC,grey
                12113390,11/20/2014,NA,SSC,grey
                12113390,11/25/2014,NA,SSC,grey
                12113390,11/26/2014,NA,SSC,grey
                12113390,12/22/2014,NA,SSC,grey
                12113390,1/6/2015,NA,SSC,grey
                12113390,1/8/2015,NA,SSC,grey
                12113390,2/5/2015,NA,SSC,grey
                12113390,2/26/2015,NA,SSC,grey
                12113390,8/30/2016,NA,SSC,grey
                12113390,9/27/2016,NA,SSC,grey
                12113390,10/7/2016,NA,SSC,grey
                12113390,12/20/2016,NA,SSC,grey
                12113390,1/11/2017,NA,SSC,grey
                12113390,1/18/2017,NA,SSC,grey
                12166150,4/17/2014,NA,SSC,grey
                12166150,10/23/2014,NA,SSC,grey
                12166150,12/9/2014,NA,SSC,grey
                12166150,12/10/2014,NA,SSC,grey
                12166150,2/5/2015,NA,SSC,grey
                12166150,2/6/2015,NA,SSC,grey
                12166150,1/28/2016,NA,SSC,grey
                12166300,3/27/2014,NA,SSC,grey
                12166300,3/29/2014,NA,SSC,grey
                12166300,3/30/2014,NA,SSC,grey
                12166300,3/31/2014,NA,SSC,grey
                12166300,4/1/2014,NA,SSC,grey
                12166300,4/2/2014,NA,SSC,grey
                12166300,4/3/2014,NA,SSC,grey
                12166300,4/4/2014,NA,SSC,grey
                12166300,4/5/2014,NA,SSC,grey
                12166300,4/6/2014,NA,SSC,grey
                12166300,4/7/2014,NA,SSC,grey
                12166300,4/11/2014,NA,SSC,grey
                12166300,4/17/2014,NA,SSC,grey
                12166300,4/18/2014,NA,SSC,grey
                12166300,5/1/2014,NA,SSC,grey
                12166300,5/5/2014,NA,SSC,grey
                12166300,10/23/2014,NA,SSC,grey
                12166300,11/5/2014,NA,SSC,grey
                12166300,12/10/2014,NA,SSC,grey
                12166300,1/5/2015,NA,SSC,grey
                12166300,2/5/2015,NA,SSC,grey
                12166300,1/28/2016,NA,SSC,grey
                12170300,11/19/2013,NA,SSC,grey
                12170300,1/11/2014,NA,SSC,grey
                12170300,3/24/2014,NA,SSC,grey
                12170300,3/25/2014,NA,SSC,grey
                12170300,3/27/2014,NA,SSC,grey
                12170300,5/5/2014,NA,SSC,grey
                12170300,10/14/2014,NA,SSC,grey
                12170300,10/31/2014,NA,SSC,grey
                12170300,11/26/2014,NA,SSC,grey
                12170300,12/9/2014,NA,SSC,grey
                12170300,1/5/2015,NA,SSC,grey
                12170300,2/6/2015,NA,SSC,grey
                12170300,10/21/2016,NA,SSC,grey
                12186000,2/22/2011,NA,SSC,grey
                12186000,9/21/2011,NA,SSC,grey
                12186000,10/19/2011,NA,SSC,grey
                12186000,11/23/2011,NA,SSC,grey
                12186000,6/18/2012,NA,SSC,grey
                12186000,7/10/2012,NA,SSC,grey
                12186000,8/17/2012,NA,SSC,grey
                12186000,10/15/2012,NA,SSC,grey
                12186000,10/31/2012,NA,SSC,grey
                12186000,1/9/2013,NA,SSC,grey
                12186000,3/20/2013,NA,SSC,grey
                12186000,5/8/2013,NA,SSC,grey
                12186000,7/2/2013,NA,SSC,grey
                12186000,8/30/2013,NA,SSC,grey
                12186000,9/6/2013,NA,SSC,grey
                12186000,9/30/2013,NA,SSC,grey
                12186000,3/6/2014,NA,SSC,grey
                12186000,10/22/2014,NA,SSC,grey
                12186000,12/10/2014,NA,SSC,grey
                12186000,1/5/2015,NA,SSC,grey
                12186000,2/6/2015,NA,SSC,grey
                12187500,1/31/2012,NA,SSC,grey
                12187500,2/22/2012,NA,SSC,grey
                12187500,5/22/2012,NA,SSC,grey
                12187500,6/18/2012,NA,SSC,grey
                12187500,7/10/2012,NA,SSC,grey
                12187500,8/17/2012,NA,SSC,grey
                12187500,10/15/2012,NA,SSC,grey
                12187500,10/31/2012,NA,SSC,grey
                12187500,1/9/2013,NA,SSC,grey
                12187500,3/6/2013,NA,SSC,grey
                12187500,5/8/2013,NA,SSC,grey
                12187500,7/2/2013,NA,SSC,grey
                12187500,8/30/2013,NA,SSC,grey
                12187500,9/6/2013,NA,SSC,grey
                12187500,9/30/2013,NA,SSC,grey
                12187500,7/17/2014,NA,SSC,grey
                12187500,8/13/2014,NA,SSC,grey
                12187500,11/28/2014,NA,SSC,grey
                12189500,9/21/2011,NA,SSC,grey
                12189500,11/23/2011,NA,SSC,grey
                12189500,5/22/2012,NA,SSC,grey
                12189500,6/18/2012,NA,SSC,grey
                12189500,7/10/2012,NA,SSC,grey
                12189500,8/17/2012,NA,SSC,grey
                12189500,10/4/2012,NA,SSC,grey
                12189500,10/15/2012,NA,SSC,grey
                12189500,10/31/2012,NA,SSC,grey
                12189500,1/9/2013,NA,SSC,grey
                12189500,3/13/2013,NA,SSC,grey
                12189500,5/8/2013,NA,SSC,grey
                12189500,7/2/2013,NA,SSC,grey
                12189500,8/30/2013,NA,SSC,grey
                12189500,9/5/2013,NA,SSC,grey
                12189500,9/6/2013,NA,SSC,grey
                12189500,9/30/2013,NA,SSC,grey
                12189500,3/6/2014,NA,SSC,grey
                12189500,7/17/2014,NA,SSC,grey
                12189500,7/21/2014,NA,SSC,grey
                12189500,7/24/2014,NA,SSC,grey
                12189500,8/5/2014,NA,SSC,grey
                12189500,8/13/2014,NA,SSC,grey
                12189500,11/28/2014,NA,SSC,grey
                12189500,8/14/2015,NA,SSC,grey
                12189500,1/28/2016,NA,SSC,grey
                12200500,3/9/2006,NA,SSC,grey
                12200500,5/11/2006,NA,SSC,grey
                12200500,5/19/2006,NA,SSC,grey
                12200500,7/24/2006,NA,SSC,grey
                12200500,11/6/2006,NA,SSC,grey
                12200500,11/7/2006,NA,SSC,grey
                12200500,3/12/2007,NA,SSC,grey
                12200500,6/5/2007,NA,SSC,grey
                12200500,9/12/2007,NA,SSC,grey
                12200500,11/8/2008,NA,SSC,grey
                12200500,1/8/2009,NA,SSC,grey
                12200500,6/25/2009,NA,SSC,grey
                12200500,7/16/2009,NA,SSC,grey
                12200500,8/2/2009,NA,SSC,grey
                12200570,9/18/2006,NA,SSC,grey
                12200570,4/7/2008,NA,SSC,grey
                12200570,4/8/2008,NA,SSC,grey
                12200570,5/29/2008,NA,SSC,grey
                12200570,9/15/2008,NA,SSC,grey
                12200570,11/14/2008,NA,SSC,grey
                12200570,6/10/2009,NA,SSC,grey
                12200570,6/25/2009,NA,SSC,grey
                12200570,7/15/2009,NA,SSC,grey
                12200570,8/1/2009,NA,SSC,grey
                12200570,10/24/2009,NA,SSC,grey
                12200660,9/18/2006,NA,SSC,grey
                12200660,4/7/2008,NA,SSC,grey
                12200660,4/8/2008,NA,SSC,grey
                12200660,5/29/2008,NA,SSC,grey
                12200660,9/15/2008,NA,SSC,grey
                12200660,11/14/2008,NA,SSC,grey
                12200675,6/9/2009,NA,SSC,grey
                12200675,6/25/2009,NA,SSC,grey
                12200675,7/15/2009,NA,SSC,grey
                12200675,8/1/2009,NA,SSC,grey
                12205000,11/13/2015,NA,SSC,grey
                12205000,12/8/2015,NA,SSC,grey
                12205000,1/22/2016,NA,SSC,grey
                12205000,1/28/2016,NA,SSC,grey
                12208000,11/17/2015,NA,SSC,grey
                12208000,12/8/2015,NA,SSC,grey
                12208000,1/22/2016,NA,SSC,grey
                12208000,1/28/2016,NA,SSC,grey
                12208000,2/16/2016,NA,SSC,grey
                12208000,10/14/2016,NA,SSC,grey
                12208000,3/3/2017,NA,SSC,grey
                12208000,3/16/2017,NA,SSC,grey
                12210000,7/21/2010,NA,SSC,grey
                12210000,3/31/2011,NA,SSC,grey
                12210000,7/29/2011,NA,SSC,grey
                12210000,11/10/2011,NA,SSC,grey
                12210000,11/17/2011,NA,SSC,grey
                12210000,12/13/2011,NA,SSC,grey
                12210000,1/5/2012,NA,SSC,grey
                12210000,1/26/2012,NA,SSC,grey
                12210000,2/22/2012,NA,SSC,grey
                12210000,3/30/2012,NA,SSC,grey
                12210000,4/20/2012,NA,SSC,grey
                12210000,5/22/2012,NA,SSC,grey
                12210000,6/1/2012,NA,SSC,grey
                12210000,7/3/2012,NA,SSC,grey
                12210000,8/28/2012,NA,SSC,grey
                12210000,10/16/2012,NA,SSC,grey
                12210000,10/31/2012,NA,SSC,grey
                12210000,3/13/2013,NA,SSC,grey
                12210000,4/5/2013,NA,SSC,grey
                12210000,11/19/2013,NA,SSC,grey
                12210000,1/13/2014,NA,SSC,grey
                12210000,3/7/2014,NA,SSC,grey
                12210000,5/1/2014,NA,SSC,grey
                12210000,2/6/2015,NA,SSC,grey
                12210000,3/16/2015,NA,SSC,grey
                12210000,9/2/2015,NA,SSC,grey
                12210000,11/17/2015,NA,SSC,grey
                12210000,1/22/2016,NA,SSC,grey
                12210000,1/28/2016,NA,SSC,grey
                12210000,2/16/2016,NA,SSC,grey
                12210700,12/8/2010,NA,SSC,grey
                12210700,10/20/2011,NA,SSC,grey
                12210700,12/12/2011,NA,SSC,grey
                12210700,1/5/2012,NA,SSC,grey
                12210700,9/25/2012,NA,SSC,grey
                12210700,10/16/2012,NA,SSC,grey
                12210700,12/18/2012,NA,SSC,grey
                12210700,5/9/2013,NA,SSC,grey
                12210700,8/29/2013,NA,SSC,grey
                12210700,9/30/2013,NA,SSC,grey
                12210700,11/19/2013,NA,SSC,grey
                12210700,1/13/2014,NA,SSC,grey
                12210700,5/1/2014,NA,SSC,grey
                12210700,7/15/2014,NA,SSC,grey
                12210700,2/6/2015,NA,SSC,grey
                12210700,3/16/2015,NA,SSC,grey
                12210700,3/24/2015,NA,SSC,grey
                12210700,11/14/2015,NA,SSC,grey
                12210700,12/9/2015,NA,SSC,grey
                12210700,1/22/2016,NA,SSC,grey
                12210700,1/29/2016,NA,SSC,grey
                12210700,2/16/2016,NA,SSC,grey
                12210700,5/20/2016,NA,SSC,grey
                12210700,10/14/2016,NA,SSC,grey
                12210700,11/3/2016,NA,SSC,grey
                12210700,1/18/2017,NA,SSC,grey
                12213100,8/31/2011,NA,SSC,grey
                12213100,1/26/2012,NA,SSC,grey
                12213100,1/30/2012,NA,SSC,grey
                12213100,3/30/2012,NA,SSC,grey
                12213100,4/20/2012,NA,SSC,grey
                12213100,4/27/2012,NA,SSC,grey
                12213100,5/16/2012,NA,SSC,grey
                12213100,5/22/2012,NA,SSC,grey
                12213100,7/20/2012,NA,SSC,grey
                12213100,8/17/2012,NA,SSC,grey
                12213100,10/19/2012,NA,SSC,grey
                12213100,7/13/2013,NA,SSC,grey
                12213100,11/14/2015,NA,SSC,grey
                12213100,12/9/2015,NA,SSC,grey
                12213100,1/29/2016,NA,SSC,grey
                12213100,2/16/2016,NA,SSC,grey
                12213100,10/14/2016,NA,SSC,grey
                12213100,11/3/2016,NA,SSC,grey
                12213100,1/18/2017,NA,SSC,grey
                12213100,2/16/2017,NA,SSC,grey
                12213100,2/17/2017,NA,SSC,grey
                12213100,3/3/2017,NA,SSC,grey
                12213100,3/16/2017,NA,SSC,grey
                12214300,4/28/2011,NA,SSC,grey
                12214300,5/11/2011,NA,SSC,grey
                12214300,9/28/2011,NA,SSC,grey
                12214300,10/20/2011,NA,SSC,grey
                12214300,11/15/2011,NA,SSC,grey
                12214300,12/5/2011,NA,SSC,grey
                12214300,12/16/2011,NA,SSC,grey
                12214300,1/26/2012,NA,SSC,grey
                12214300,1/30/2012,NA,SSC,grey
                12214300,2/1/2012,NA,SSC,grey
                12214300,4/20/2012,NA,SSC,grey
                12214350,4/28/2011,NA,SSC,grey
                12214350,5/11/2011,NA,SSC,grey
                12214350,6/23/2011,NA,SSC,grey
                12214350,9/28/2011,NA,SSC,grey
                12214350,11/15/2011,NA,SSC,grey
                12214350,12/5/2011,NA,SSC,grey
                12214350,12/16/2011,NA,SSC,grey
                12214350,1/26/2012,NA,SSC,grey
                12214350,1/30/2012,NA,SSC,grey
                12214350,2/1/2012,NA,SSC,grey
                12214350,4/20/2012,NA,SSC,grey
                12214350,10/19/2012,NA,SSC,grey
                12214350,10/30/2012,NA,SSC,grey
                12214350,12/4/2012,NA,SSC,grey
                12214350,12/14/2012,NA,SSC,grey
                12214350,12/17/2012,NA,SSC,grey
                12214350,1/8/2013,NA,SSC,grey
                12214350,1/25/2013,NA,SSC,grey
                12214350,2/12/2013,NA,SSC,grey
                12214350,3/1/2013,NA,SSC,grey
                12214350,4/5/2013,NA,SSC,grey")
dat <- dat %>% as_tibble %>% mutate_at(c(2,3), mdy)

# dat <- dat %>% mutate(end_date = ifelse(is.na(end_date), start_date+25, end_date), end_date = as.Date(end_date, origin="1970-01-01"))
vistime(dat, col.group = "gage", col.event = "data_type", col.start = "start_date", col.end = "end_date", linewidth = 5, show_labels = FALSE)

hc_vistime(dat, col.group = "gage", col.event = "data_type", col.start = "start_date", col.end = "end_date", show_labels = FALSE)
shosaco/vistime documentation built on March 20, 2024, 10:33 p.m.