Move project 1 data to separate folder, initialize projec 2

proj1/projekt.R

@@ -6,7 +6,7 @@ library(ggplot2)
 library(RColorBrewer)
 
 # zaladowanie danych
-german_credit_risk <- read.csv("german_credit_data.csv", header = TRUE)
+german_credit_risk <- read.csv("proj1/german_credit_data.csv", header = TRUE)
 
 # sprawdzenie danych
 head(german_credit_risk)

proj2/projekt2.R

@@ -0,0 +1,14 @@
+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")
+
+