setwd("C:/Users/user/Desktop/Paskaitos/3 kursas 2 semestras/Prognozavimas")
if (!require(readxl)) install.packages('readxl')
## Įkeliamas reikalingas paketas: readxl
library(readxl)
d <- read_excel("Duomenys prognozavimui.xlsx")

#UŽDAVINIAI:

#1. Rasti kiekvienos šalies minimalų bei maksimalų susirgimų skaičių

#2. Rasti duomenų modas bei medianas

#3. Išsiaiškinti ar duomenys turi išskirčių

#4. Grafiškai pavaizduoti duomenis

if (!require(readxl)) install.packages('ggplot')
library(ggplot2)


summary(d) 
##     Lietuva          Latvija          Lenkija      
##  Min.   :   0.0   Min.   :   0.0   Min.   :  71.0  
##  1st Qu.:  55.5   1st Qu.:   0.0   1st Qu.: 181.0  
##  Median : 340.0   Median : 449.5   Median : 547.5  
##  Mean   : 407.6   Mean   : 443.2   Mean   : 777.0  
##  3rd Qu.: 587.8   3rd Qu.: 682.0   3rd Qu.: 803.8  
##  Max.   :1759.0   Max.   :2231.0   Max.   :4619.0
boxplot(d)

hist(d$Lietuva)

hist(d$Latvija)

hist(d$Lenkija)

a <- c(d$Lietuva)
b <- c(d$Latvija)
c <- c(d$Lenkija)


dates <- seq(as.Date("2022-10-01"), as.Date("2023-01-08"), by = "day")
a <- c(d$Lietuva)
b <- c(d$Latvija)
c <- c(d$Lenkija)
df <- data.frame(date = dates, Lietuva = a, Latvija = b, Lenkija = c)


ggplot(df, aes(x = date)) +
  geom_line(aes(y = Lietuva, color = "Lietuva")) +
  geom_line(aes(y = Latvija, color = "Latvija")) +
  geom_line(aes(y = Lenkija, color = "Lenkija")) +
  scale_x_date(date_labels = "%b") +
  scale_color_manual(values = c("Lietuva" = "red", "Latvija" = "blue", "Lenkija" = "green", title='as cvgdg'),
                     labels = c("Latvija", "Lenkija", "Lietuva")) +
  labs(x = "Mėnesiai", y = "Susirgimai", title = 'Susirgimų skaičius Lietuvoje, Latvijoje ir Lenkijoje 2022-2023 metais')

#IŠVADOS. Aprašomųjų statistikų lentelėje galime matyti minimalius bei maksimalius susirgimų skaičius, taip pat duomenų modas ir medianas. Atlikus duomenų grafinę analizę matome, jog visų analizuojamų šalių duomenyse yra išskirčių. Paskutiniame grafike matome, kad didžiausi susirgimų skaičiai analizuojamo laikotarpio pradžioje buvo Lenkijoje, mažiausi Lietvoje, analizuojamo laikotarpio pabaigoje susirgimai Lenkijoje ženkliai sumažėjo, o Latviją šiek tiek pralenkė Lietuva.