s434742/wizualizacja-danych
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Move project 1 data to separate folder, initialize projec 2

Browse Source
This commit is contained in:
nlitkowski 2021-05-26 02:17:30 +02:00
parent 35c23bd352
commit 08f8fe4811
4 changed files with 91042 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
german_credit_data.csv → proj1/german_credit_data.csv Executable file → Normal file
View File

2
projekt.R → proj1/projekt.R
View File

@ -6,7 +6,7 @@ library(ggplot2)
library(RColorBrewer) library(RColorBrewer)
# zaladowanie danych # 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 # sprawdzenie danych
head(german_credit_risk) head(german_credit_risk)

91027
proj2/owid-covid-data.csv Normal file
View File

File diff suppressed because it is too large Load Diff

14
proj2/projekt2.R Normal file
View File

@ -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")