---
# System prepended metadata

title: Nice visuals about Covid-19
tags: [bym4102]

---

---
tags: bym4102
---

this document is editable at https://hackmd.io/@alper-yilmaz76/S1tkgfZ_d/edit

# Nice visuals about Covid-19

## AY

![](https://i.imgur.com/MH0jUPs.png)


[Link](https://informationisbeautiful.net/visualizations/covid-19-coronavirus-infographic-datapack/) for the page. The data is avaialable as [Google Docs/Sheets](https://bit.ly/COVID19-DATA)

![](https://www.oecd.org/coronavirus/policy-responses/culture-shock-covid-19-and-the-cultural-and-creative-sectors-08da9e0e/images/images/08da9e0e/media/image5.png)

[Page link](https://www.oecd.org/coronavirus/policy-responses/culture-shock-covid-19-and-the-cultural-and-creative-sectors-08da9e0e/)

![](https://pbs.twimg.com/media/ETukzWJUYAIZblH?format=jpg&name=large)

[Tweet link](https://twitter.com/elerianm/status/1241774214278832128)

## ENA :+1: 

![](https://i.imgur.com/wFOgUfp.png)

[link for the page](https://ourworldindata.org/explorers/coronavirus-data-explorer?zoomToSelection=true&time=2020-03-01..latest&pickerSort=desc&pickerMetric=total_vaccinations_per_hundred&Metric=Vaccine+doses&Interval=Cumulative&Relative+to+Population=true&Align+outbreaks=false&country=USA~GBR~ISR~DEU~ARE~ARG~FRA)



The data avaliable as [csv file](https://covid.ourworldindata.org/data/owid-covid-data.csv)



## FAA 

![](https://i.imgur.com/m7CErUG.png)

[link](https://ourworldindata.org/explorers/coronavirus-data-explorer?yScale=log&zoomToSelection=true&hideControls=true&Interval=Cumulative&Relative+to+Population=false&Align+outbreaks=true&Metric=Confirmed+cases)

[data source](https://github.com/CSSEGISandData/COVID-19)

## ZA

## ENY

![](https://imgur.com/1vLAHAu.png)

[Data link](https://covid.ourworldindata.org/data/owid-covid-data.csv)


## MC :+1: 

![](https://i.imgur.com/lyKh7ay.png)

[link](https://www.reuters.com/article/health-coronavirus-turkey-idUSKBN28F0FF)

## MG

![Image](https://ourworldindata.org/uploads/2020/04/full-list-total-tests-for-covid-19.svg)

[Data link](https://covid.ourworldindata.org/data/owid-covid-data.csv)
 
## FK 

![](https://miro.medium.com/max/1304/1*9SPOTYF0LYpFKGjmvxhnxA.gif)

[link](https://towardsdatascience.com/interactive-data-visualization-for-exploring-coronavirus-spreads-f33cabc64043)
[data source](https://github.com/owid/covid-19-data/blob/master/public/data/latest/owid-covid-latest.csv)

# Let's draw

1. daily new cases Turkey (and maybe additional countries for comparison)
2. daily new cases per million Turkey (and maybe additional countries for comparison)
3. rank of Turkey in world for daily new cases

## AY

```r
data %>% 
  filter(location != "World") %>% 
  filter(continent != location) %>%
  filter(new_cases < 500000, new_cases > 0) %>% 
  select(location, date, new_cases) %>% 
  group_by(date) %>% 
  arrange(-new_cases) %>% 
  mutate(rank=row_number()) %>% 
  ungroup() %>% 
  filter(location %in% countries) %>% 
  ggplot(aes(date, rank, color=location)) +
  geom_line()
```

![](https://i.imgur.com/Kw0Oi3I.png)


## ENA
![](https://i.imgur.com/UmI7wol.png)


## ENY :+1: 

![](https://i.imgur.com/ePRBVWN.png)
![](https://i.imgur.com/WM0Tbqf.png)


## FAA

## FK
![](https://i.imgur.com/YgAS7f4.png)
![](https://i.imgur.com/5TVgSBv.png)




## MC

```r
covidveri <- read_csv("https://covid.ourworldindata.org/data/owid-covid-data.csv")
```

## MG


# Remarks

> If `read_csv/read_tsv` fails to recognize dates, you can use `lubridate::ymd()` to parse year-month-day formatted dates.

> fct_reorder can be used to order elements by levels in another column

```r
data %>% 
  filter(location != "World") %>% 
  filter(continent != location) %>%
  filter(date == "2021-05-04") %>% 
  select(location, new_vaccinations) %>% 
  arrange(-new_vaccinations) %>% 
  mutate(rank=row_number()) %>% 
  filter(rank <= 10) %>% 
  mutate(location=fct_reorder(location, -rank)) %>% 
  ggplot(aes(location, new_vaccinations)) +
  geom_col() +
  coord_flip()
```

![](https://i.imgur.com/LptSr5l.png)
