gmp/cget
1
0
Fork 0
Code Issues Pull Requests Wiki Activity

Compare commits

base: gmp:f2e81c7511634c784ffef1da6c5dae15a1cafae0
Branches Tags
gmp:master
..
compare: gmp:bb80fbed9dd6646ec674abeaf6e3150f38236510
Branches Tags
gmp:master

1 Commits
f2e81c7511 ... bb80fbed9d

Author SHA1 Message Date
Greg
bb80fbed9d Add date to the top of the report. 2020-08-27 13:22:45 -04:00
1 changed files with 1 additions and 1 deletions
Show Stats Expand all files Collapse all files

2
rcode.go
View File

@ -31,6 +31,6 @@ p2 <- ggplot(totals, aes(x=date, y=value, color=name))+geom_line()+stat_smooth(g
pr1 <- ggplot(qrate, aes(x=date, y=value)) + geom_line()+geom_smooth(method='gam',formula=y~s(x, bs="cs"),se=FALSE)+scale_y_continuous(labels = scales::percent,)+labs(y='Positive Rate')+coord_cartesian(ylim=c(0,0.04))+ggtitle('Queens')+theme(plot.title=element_text(hjust = 0.5)) pr1 <- ggplot(qrate, aes(x=date, y=value)) + geom_line()+geom_smooth(method='gam',formula=y~s(x, bs="cs"),se=FALSE)+scale_y_continuous(labels = scales::percent,)+labs(y='Positive Rate')+coord_cartesian(ylim=c(0,0.04))+ggtitle('Queens')+theme(plot.title=element_text(hjust = 0.5))
pr2 <- ggplot(trate, aes(x=date, y=value)) + geom_line()+geom_smooth(method='gam',formula=y~s(x, bs="cs"),se=FALSE)+scale_y_continuous(labels = scales::percent)+labs(y='Positive Rate')+coord_cartesian(ylim=c(0,0.04))+ggtitle('New York')+theme(plot.title=element_text(hjust = 0.5)) pr2 <- ggplot(trate, aes(x=date, y=value)) + geom_line()+geom_smooth(method='gam',formula=y~s(x, bs="cs"),se=FALSE)+scale_y_continuous(labels = scales::percent)+labs(y='Positive Rate')+coord_cartesian(ylim=c(0,0.04))+ggtitle('New York')+theme(plot.title=element_text(hjust = 0.5))
p <- grid.arrange(p1,p2,pr1,pr2,ncol=2,top=format(now(), "%B %d %Y")) p <- grid.arrange(p1,p2,pr1,pr2,ncol=2,top=format(d[[nrow(d),1]], "%B %d %Y"))
` `
} }