File:Wiki covid andorra4.png
Original file (4,800 × 2,400 pixels, file size: 101 KB, MIME type: image/png)
Captions
Summary
[edit]DescriptionWiki covid andorra4.png |
English: Cumulative COVID-19 cases confirmed in Andorra |
Date | |
Source | Own work |
Author | GeneParmesan66 |
Below is the R code used to generate this plot. It is modified from another script that pulls each case type file from Johns Hopkins so some of the organization is unnecessary.
# Libraries library(extrafont) library(tidyverse) library(janitor) library(here) library(lubridate) library(ggtext) library(ggrepel) # COVID Case Data --------------------------------------------------------- folder_url = "https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/" # files = c("confirmed", "recovered", "deaths") # Because each file is in the folder, paste together the filenames case_urls = str_c(folder_url, # e.g. time_series_covid19_confirmed_global.csv "time_series_covid19_", "confirmed", "_global.csv") %>% # Setting names so we can map over each file later # set_names(files) set_names("confirmed") covid_data = imap_dfr(case_urls, ~read_csv(file = .x), .id = "case_type") %>% select(`Province/State`, `Country/Region`, case_type, everything()) %>% filter(`Country/Region` == "Andorra") covid_pivot = covid_data %>% pivot_longer(cols = c(-1:-5), names_to = "date", values_to = "total_cases", names_transform = list(date = mdy)) %>% clean_names() # Make labels for the end of each quarter quarterly_labels = covid_pivot %>% group_by(quarter(date, with_year = T)) %>% filter(date == max(date)) # Plotting --------------------------------------------------------- line_graph = covid_pivot %>% ggplot(., aes(x = date, y = total_cases))+ geom_line(colour = "#1f77b4", size = 1.3)+ geom_text(data = quarterly_labels, aes(label = scales::comma(total_cases)), size = 6, colour ="#202122", family = "Arial",nudge_x = -9, nudge_y = 280)+ scale_y_continuous(labels = scales::comma, expand = expansion(add = c(25,0)))+ scale_x_date(date_breaks = "2 months", date_labels = "%b %y", expand = expansion())+ coord_cartesian(xlim = range(covid_pivot$date), ylim = range(covid_pivot$total_cases), clip = "off")+ labs(x = NULL, y = "No. of confirmed cases", title = "COVID-19 cases in Andorra", subtitle = str_c("Source: Johns Hopkins CSSE (as of ", stamp_date("Oct 20 1979")(today()), ")"))+ # this is a custom theme function, but theme_minimal() or your favourite theming function will do just as well! theme_wiki(md=T, base_size = 16, plot_margin = margin(20,80,50,50)) ggsave(line_graph, filename = here("plots", "wiki_covid_andorra.png"), dev = "png", width = 16, height = 8)
Licensing
[edit]- You are free:
- to share – to copy, distribute and transmit the work
- to remix – to adapt the work
- Under the following conditions:
- attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
- share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 07:55, 3 February 2021 | 4,800 × 2,400 (101 KB) | GeneParmesan66 (talk | contribs) | Add title and source | |
07:42, 3 February 2021 | 4,800 × 2,400 (85 KB) | GeneParmesan66 (talk | contribs) | Increased padding between line and labels | ||
07:38, 3 February 2021 | 4,800 × 2,400 (85 KB) | GeneParmesan66 (talk | contribs) | Increased file height | ||
07:35, 3 February 2021 | 4,800 × 2,100 (77 KB) | GeneParmesan66 (talk | contribs) | Cross-wiki upload from en.wikipedia.org |
You cannot overwrite this file.
File usage on Commons
There are no pages that use this file.
Metadata
This file contains additional information such as Exif metadata which may have been added by the digital camera, scanner, or software program used to create or digitize it. If the file has been modified from its original state, some details such as the timestamp may not fully reflect those of the original file. The timestamp is only as accurate as the clock in the camera, and it may be completely wrong.
Horizontal resolution | 118.11 dpc |
---|---|
Vertical resolution | 118.11 dpc |