Is Illinois flattening, or still not testing enough?

script.R

library(data.table)
library(reshape2)
library(ggplot2)


a <- "https://covidtracking.com/api/v1/states/IL/daily.csv"
a <- data.table::fread(a)

a$date <- as.Date(as.character(a$date), "%Y%m%d")

a <- melt(a, measure.vars = c("positiveIncrease", "totalTestResultsIncrease"), id.vars="date")
a$variable <- factor(a$variable, levels = c("totalTestResultsIncrease", "positiveIncrease"))
levels(a$variable) <- c("Daily Tests", "Positive for virus")


ggplot(a, ) + 
  geom_point(aes(x = date, y= value, color = variable)) +
  ggplot2::scale_y_log10() +
  labs(color = "") + 
  ylab("Count (log10)") +
  ggtitle("Is Illinois flattening, or still not testing enough?")