rcode.go

@@ -34,9 +34,5 @@ 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))
 
 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)
 `
 }