Update: 2022-03-12

První pokusy o nahrávání na web. Cílem je se naučit sdílet Rmarkdown dokument rychle a snadno s jinými lidmi a naučit se tvořit interaktivní obsahy a výstupy.

Studijní materiály

VIDEA
- https://www.youtube.com/watch?v=F3lC4qf84FI&list=PLlzRFZmxVl9RVwRP6WKOUXTiRMFkF2cPF&ab_channel=LanderAnalytics
- https://www.youtube.com/watch?v=WkF7nqEYF1E&ab_channel=RStudio

DOKUMENTY
- R markdown official site
- R markdown definitive giude

Pokusy

Data:

set.seed(42)
delka_ryby = round(abs(rnorm(150, 21.35, sd=12))+5,digits = 1)
id_ryby = seq(1,150)
rybnik = c("nizsi","vyzsi","prostredni")
pohlavi = sample(x = c("m","f"),replace = T,size = 150)
velikost_supiny = (round(abs(rnorm(150,2,0.073) - log(delka_ryby)), digits = 2))+0.5
druh=sample(x=c("lín","karas","okoun","perlín","plotice","cejnek"),size = 150,replace = T)
data=data.frame(delka_ryby,id_ryby,rybnik,pohlavi,velikost_supiny,druh)

graph.rybi_pokusy = data %>%
  ggplot(aes(x = rybnik,y = delka_ryby, fill=pohlavi,
             text=paste("Druh:", druh,
                        "\nDélka ryby:", delka_ryby, 
                        "\nNázev rybníku:", rybnik
                        ))) + 
  geom_boxplot()

Tabulka

#knitr::kable(data,"pipe", col.name=c("Length [cm]", "Id", "Pond", "Sex", "Scale size [cm]", "Species"),
#             align=rep("c",times=6))

paged_table(data)

Interaktivní graf

ggplotly(graph.rybi_pokusy, tooltip = "text")

Graf

ggplot(data, aes(x=rybnik,y=delka_ryby,fill=pohlavi)) +
  geom_boxplot()