Skip to content

Instantly share code, notes, and snippets.

@jscrane
Created February 9, 2019 18:37
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jscrane/f76554d897f9ad19efda013c1f019924 to your computer and use it in GitHub Desktop.
Save jscrane/f76554d897f9ad19efda013c1f019924 to your computer and use it in GitHub Desktop.
bp
date,time,sys,dia,pulse
2019-02-09,15:17:44,129,86,69
2019-02-09,08:48:58,120,84,63
2019-02-08,19:29:04,116,78,71
bp <- read.csv(file="/tmp/x.csv", header=TRUE, sep=",")
bp$date = as.Date(bp$date)
n = nrow(bp)
bq <- bp[order(bp$date, bp$time),]
matplot(bq, type="p", xaxt="n")
axis(1, labels=bp$date, at=seq.int(1, n), las=2)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment