I need to be able to draw and label a vertical line, representing the date of some arbitrary event. The date of the first entry is 2013-11-29. How would I draw, and label a red vertical line at 2019-04-06? Greg
gcdf<-read.table(text="2013-11-29 19.175 2014-01-20 10.072 2014-02-12 10.241 2014-03-02 05.916 2014-03-15 05.942 2014-03-23 03.639 2014-04-06 08.283 2014-04-20 07.323 2014-05-11 09.807 2014-05-30 10.398 2014-06-15 13.949 2014-07-06 13.840 2014-07-18 07.906 2014-07-21 13.609 2014-08-03 17.316 2014-08-10 09.585 2014-08-24 16.022 2014-09-07 15.403 2014-09-21 14.880 2014-10-08 18.950 2014-10-24 18.185 2014-11-03 10.178 2014-11-09 07.438 2014-11-23 16.053 2014-12-07 12.896 2014-12-21 18.306 2015-01-05 16.580 2015-01-18 14.603 2015-01-25 08.192 2015-02-08 15.690 2015-02-16 08.677 2015-03-08 15.493 2015-03-22 16.065 2015-04-05 15.990 2015-04-19 19.076 2015-04-26 11.310 2015-05-03 09.243 2015-05-10 13.366 2015-05-17 11.191 2015-05-25 12.329 2015-05-31 08.324 2015-06-07 12.985 2015-06-15 12.605 2015-06-21 09.759 2015-06-28 14.906 2015-07-05 09.106 2015-07-12 11.306 2015-07-19 10.052 2015-07-26 08.845 2015-08-02 11.634 2015-08-09 07.718 2015-08-16 06.057 2015-08-23 08.341 2015-08-30 06.702 2015-09-07 05.972 2015-09-13 08.249 2015-09-20 05.758 2015-10-05 13.772 2015-10-19 14.144 2015-11-03 14.305 2015-11-13 09.932 2015-11-20 17.418 2015-12-06 13.529 2015-12-20 15.440 2016-01-03 10.573 2016-01-19 09.592 2016-02-25 12.664 2016-04-03 18.993 2016-05-01 16.869 2016-06-07 15.012 2016-06-23 07.549 2016-06-27 13.756 2016-08-07 18.581 2016-09-01 11.334 2016-09-30 11.327 2016-11-06 18.018 2016-11-27 14.597 2016-12-04 15.347 2016-12-23 09.243 2017-01-05 16.035 2017-02-07 13.219 2017-02-19 16.196 2017-03-12 07.436 2017-05-08 19.747 2017-06-29 19.503 2017-08-15 19.676 2017-09-08 15.558 2017-10-17 16.705 2017-12-06 14.876 2018-01-12 13.748 2018-03-15 19.139 2018-04-13 19.056 2018-05-20 17.756 2018-06-02 15.631 2018-06-17 14.049 2018-07-05 18.870 2018-07-22 16.654 2018-08-06 17.171 2018-08-26 20.139 2018-09-09 18.442 2018-09-26 18.646 2018-10-14 17.144 2018-11-02 19.508 2018-11-20 12.454 2018-12-04 09.355 2018-12-14 09.152 2019-01-11 10.998 2019-02-02 07.739 2019-02-19 09.891 2019-03-22 18.716 2019-04-30 18.880 2019-06-03 19.247 2019-07-07 18.289 2019-08-30 19.021 2019-09-29 15.892 2019-10-26 18.180 2019-11-17 17.693 2019-12-08 16.528 2020-01-05 15.973 2020-02-15 18.832 2020-03-10 17.392 2020-05-04 14.774 2020-06-21 19.248 2020-08-01 14.913 2020-08-27 15.226 2020-09-28 14.338 2020-11-09 18.777 2020-12-11 19.652", header=FALSE,stringsAsFactors=FALSE, col.names=c("date","gallons")) gcdf$date<-as.Date(gcdf$date,"%Y-%m-%d") grid_dates<-as.Date(paste(2013:2021,1,1,sep="-"),"%Y-%m-%d") plot (gcdf$date, gcdf$gallons, ylab="Refueling Gallons", xlab="",type="b", col="blue", yaxt="n") mtext (side=3, line="+0", "2014 Toyota 4Runner") abline (h=seq(4,20,by=2), lty=3) abline (v=grid_dates, lty=4) axis (side=2, at=seq(4,20,by=2)) [[alternative HTML version deleted]] ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.