update

proj2/projekt2.R

@@ -82,14 +82,18 @@ plot_ly(
   )
 
 # World - deaths by country -----------------------------------------------
+
+cov_d <- cov
+cov_d[["new_vaccinations"]][is.na(cov_d[["new_vaccinations"]])] <- 0
+cov_d[["new_deaths"]][is.na(cov_d[["new_deaths"]])] <- 0
+cov_d <- cov_d %>% group_by(location)
 plot_ly(
-  cov,
-  x = cov$date,
-  y = cov$new_deaths,
-  name = "New deaths",
+  cov_d,
+  x = cov_d$date,
+  y = cov_d$new_deaths_smoothed,
+  name = cov_d$location,
   type = "scatter",
   mode = "lines",
-  connect_gaps = TRUE,
-  color = cov$location
+  color = cov_d$location
 )