Hello, I keep trying to recreate your graph from the after 100 mark and it still does not work, may you try recreating it based off of this code where you are pulling the code from the URL just like in mine. In the second and third line I am implementing your code of how to bring it to >= 100.
#Read In The Files
install.packages("readxl")
#these libraries are necessary
library(readxl)
library(httr)
library(tidyverse)
#create the URL where the dataset is stored with automatic updates every day
url <- paste("https://www.ecdc.europa.eu/sites/default/files/documents/COVID-19-geographic-disbtribution-worldwide-",format(Sys.time(), "%Y-%m-%d"), ".xlsx", sep = "")
#download the dataset from the website to a local temporary file
GET(url, authenticate(":", ":", type="ntlm"), write_disk(tf <- tempfile(fileext = ".xlsx")))
#read the Dataset sheet into “R”
data <- read_excel(tf)
data %>%
filter(countriesAndTerritories %in% c("Canada")) %>%
mutate(totalDeathds = cumsum(deaths)) %>%
filter(totalDeathds >= 100) %>%
ggplot(aes(dateRep, cases, col = countriesAndTerritories)) +
geom_point() +
geom_line() +
scale_y_log10() +
geom_smooth() +
#abline(v = mean(Canada_Subset$Cases),col="red", lwd=3, lty=2) +
theme(legend.position = "bottom") +
ggtitle("Plot of COVID-19 Cases In Majority Countries") +
xlab("Date In Months") +
ylab("Cases Per Day Count") +
#ylab("Cases Per Day Count - Log10 Applied")