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

Compare commits

base: gmp:07fda3ad9152b946fb5ef3c07bc1b249fecf67b8
Branches Tags
gmp:master
...
compare: gmp:fa69fe9c5f025ec077c1d6c453db54d352a23102
Branches Tags
gmp:master

No commits in common. "07fda3ad9152b946fb5ef3c07bc1b249fecf67b8" and "fa69fe9c5f025ec077c1d6c453db54d352a23102" have entirely different histories.
07fda3ad91 ... fa69fe9c5f

1 changed files with 4 additions and 0 deletions
Show Stats Expand all files Collapse all files

4
rcode.go
View File

@ -34,5 +34,9 @@ pr1 <- ggplot(qrate, aes(x=date, y=value)) + geom_line()+geom_smooth(method='gam
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) p <- grid.arrange(p1,p2,pr1,pr2,ncol=2)
zip <- read_csv('~/prog/covid/nyopendata/timeseries.csv')
zip <- pivot_longer(zip, c('COVID_CASE_COUNT','COVID_DEATH_COUNT','TOTAL_COVID_TESTS'))
zip$date <- mdy(zip$date)
` `
} }