From 016cd2de601c994e1b2f5fdbf8a48d0808462af2 Mon Sep 17 00:00:00 2001
From: nlitkowski <norbert.litkowski@gmail.com>
Date: Wed, 26 May 2021 13:17:25 +0200
Subject: [PATCH] Add some plots

---
 proj2/projekt2.R | 50 ++++++++++++++++++++++++++++++++++++++++++------
 1 file changed, 44 insertions(+), 6 deletions(-)

diff --git a/proj2/projekt2.R b/proj2/projekt2.R
index 9c84313..d0d88b4 100644
--- a/proj2/projekt2.R
+++ b/proj2/projekt2.R
@@ -1,14 +1,52 @@
 library(dplyr)
-library(highcharter)
-library(xts)
+library(plotly)
 
 cov <- read.csv("proj2/owid-covid-data.csv", header = TRUE)
 
-df <- data.frame(as.Date(cov$date), cov$location, cov$total_deaths)
+cov_pl <- cov[cov$location == "Poland",]
 
-cov_xts <- xts(df[-1], order.by = date)
+plot_ly(
+  cov_pl,
+  x = cov_pl$date,
+  y = cov_pl$new_deaths,
+  name = "New deaths",
+  type = "scatter",
+  mode = "lines+markers"
+)
+
+plot_ly(
+  cov_pl,
+  x = cov_pl$date,
+  y = cov_pl$new_deaths_per_million,
+  name = "New deaths per million",
+  type = "scatter",
+  mode = "lines+markers"
+) %>%
+  add_trace(
+    y = cov_pl$new_cases_per_million,
+    name = "New cases per million",
+    type = "scatter",
+    mode = "lines+markers"
+  )
+
+cov_pl_vac = cov_pl[as.POSIXct(cov_pl$date) > as.POSIXct('2020-12-12'),]
+
+plot_ly(
+  cov_pl_vac,
+  x = cov_pl_vac$date,
+  y = cov_pl_vac$people_vaccinated,
+  name = "People vaccinated",
+  type = "scatter",
+  mode = "lines",
+  connectgaps = TRUE
+) %>%
+  add_trace(
+    y = cov_pl_vac$people_fully_vaccinated,
+    name = "People fully vaccinated",
+    type = "scatter",
+    mode = "lines+markers",
+    connectgaps = TRUE
+  )
 
-highchart(type = "stock") %>% 
-  hc_add_series(df[df$location == "Poland",]$total_deaths, type = "line")