hw4.R

#ILNITSKYI BOHDAN


library(patchwork)

## Warning: package 'patchwork' was built under R version 4.3.3

library(dplyr)

## Warning: package 'dplyr' was built under R version 4.3.3

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.3.3

dat <- datasets::iris %>%
  rename(šírka = Sepal.Width, dĺžka = Sepal.Length)
  
  #Zobrazte stĺpcové grafy charakterizujúce rozdelenie pravdepodobnosti hodnôt každej premennej zvlášť. Čo ste sa o nich dozvedeli?
  #Histogramy šírky a dĺžky lístkov: Ukazujú rozloženie hodnôt každej premennej. Napríklad, či sú hodnoty skoncentrované v úzkom rozsahu alebo rovnomerne rozložené.

  g <- ggplot(dat, aes(x = šírka)) +
  geom_bar()+
    ggtitle("šírka")
  d<- ggplot(dat, aes(x = dĺžka)) +
  geom_bar()+
    ggtitle("dĺžka")
 
  (g+d)

   #Ako sa zmenia stredné hodnoty šírky a dĺžky lístkov/lupeňov, ak prihliadneme na druh kosatca? Tabuľku výsledkov doplňte o vizualizáciu (rozdelenia každého rozmeru podľa druhu) vhodným grafom (nie stĺpcovým).
  #Grafy hustoty: Zobrazujú formu rozloženia hodnôt premenných pre každý druh irisu. To umožňuje porovnať rozloženie hodnôt každej premennej medzi rôznymi druhmi.
  
   data2 <- dat %>%
     group_by(Species)
     
     
  
     s <- ggplot(data2, aes(x = dĺžka,  fill = Species)) +
     geom_density(alpha = 0.7) +
     ggtitle("Density Plot of Sepal Length by Species")
   
    s1 <- ggplot(data2, aes(x = šírka,  fill = Species)) +
      geom_density(alpha = 0.7) +
      ggtitle("Density Plot of Sepal Length by Species")
   
   (s+s1)

   #Na základe vhodného grafu slovne popíšte, ako spolu súvisia šírka a dĺžka (Tzn. ak hodnoty jednej rastú, ako sa správajú hodnoty druhej?).
    #Graf závislosti šírky a dĺžky lístkov: Ukazuje, ako sa menia hodnoty jednej premennej v závislosti od druhej. Napríklad, či existuje väzba medzi šírkou a dĺžkou lístkov.
    
    k <-ggplot(data2, mapping = aes(x = šírka, y = dĺžka)) + 
      geom_line()
    
    
    #Čo sa na závislosti šírky a dĺžky zmení, ak ich vyšetríme po jednotlivých druhoch? Svoje tvrdenie podporte vhodným grafom, kde druh kvetu odlíšite zvoleným grafickým atribútom (napr. farba, znak alebo veľkosť). Jeho súčasťou musí byť aj legenda.
    #Graf závislosti šírky a dĺžky lístkov pre každý druh: To umožňuje posúdiť, či existuje väzba medzi šírkou a dĺžkou lístkov pre každý druh zvlášť a porovnať túto väzbu medzi rôznymi druhmi.
    
    k1<-ggplot(data2,mapping = aes(x = šírka, y = dĺžka, color=Species)) + 
      geom_line()
    
    (k+k1)

    ((g |d)/(s | s1)/(k | k1))