15 lines
328 B
R
15 lines
328 B
R
library(dplyr)
|
|
library(highcharter)
|
|
library(xts)
|
|
|
|
cov <- read.csv("proj2/owid-covid-data.csv", header = TRUE)
|
|
|
|
df <- data.frame(as.Date(cov$date), cov$location, cov$total_deaths)
|
|
|
|
cov_xts <- xts(df[-1], order.by = date)
|
|
|
|
highchart(type = "stock") %>%
|
|
hc_add_series(df[df$location == "Poland",]$total_deaths, type = "line")
|
|
|
|
|