I have a graph that that plots cases by 4 select countries. US, Italy, Iran. I am looking to change plot of the graph so that they all start at the origin of (0,0) that way I can see where 1 trend in increasing / decreasing. Attached I have included a picture of how my graph looks now, but as-well the code of how I produced it.
I tried using
scale_y_continuous(limits=c(0,max(data but this was the wrong approach, see second screenshot, I'd like for all the plots to start in the same place.
How I want to transform graph
Code To Create
#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("United_States_of_America", "Iran", "Italy")) %>% arrange(countriesAndTerritories, dateRep) %>% group_by(countriesAndTerritories) %>% mutate(cum_cases = cumsum(cases)) %>% filter(cum_cases >= 100) %>% ggplot(aes(dateRep, cases, colour = countriesAndTerritories)) + geom_point() + scale_y_log10() + geom_smooth()