knitr::opts_chunk$set(
echo = TRUE,
message = FALSE,
warning = FALSE
)
Spracované a inšpirované receptom publikovaným na
Mamin banánový koláč – Dobré
jedlo
Pečenie koláča
Tradičný kuchynský postup
Pri príprave koláča pracujeme podobne ako s databázou – každá
ingrediencia má svoj význam a až ich správnym spojením vznikne výsledný
koláč.
Základné suroviny
Ovocie <- c("Banán", "Banán", "Banán")
Sladkost <- c(3, 4, 2)
Konzistencia <- c("mäkká", "krémová", "jemná")
cesto <- data.frame(Ovocie, Sladkost, Konzistencia)
print(cesto)
[1] 3 4 2
print(mean(cesto$Sladkost))
[1] 3
Ovocie Sladkost Konzistencia
Length:3 Min. :2.0 Length:3
Class :character 1st Qu.:2.5 Class :character
Mode :character Median :3.0 Mode :character
Mean :3.0
3rd Qu.:3.5
Max. :4.0
Pridanie čokolády
Cokolada <- c(TRUE, TRUE, TRUE)
cesto <- cbind(cesto, Cokolada)
print(cesto)
Nová vrstva koláča
nova.vrstva <- data.frame(
Ovocie = "Kakao",
Sladkost = 5,
Konzistencia = "vláčna",
Cokolada = TRUE
)
cesto <- rbind(cesto, nova.vrstva)
print(cesto)
Prehľad ingrediencií
library(knitr)
library(kableExtra)
kable(
cesto,
digits = 2,
align = c("l","c","l","c"),
caption = "Prehľad ingrediencií banánového koláča"
) %>%
kable_styling(
bootstrap_options = c("striped", "hover", "condensed", "responsive"),
full_width = FALSE,
position = "center"
)
Prehľad ingrediencií banánového koláča
| Ovocie |
Sladkost |
Konzistencia |
Cokolada |
| Banán |
3 |
mäkká |
TRUE |
| Banán |
4 |
krémová |
TRUE |
| Banán |
2 |
jemná |
TRUE |
| Kakao |
5 |
vláčna |
TRUE |
Vizualizácia výsledku
library(ggplot2)
ggplot(cesto, aes(x = Konzistencia, y = Sladkost)) +
geom_point(size = 3) +
theme_minimal() +
labs(
title = "Textúra a sladkosť banánového koláča",
x = "Konzistencia",
y = "Sladkosť"
)

Výsledok
Banánový koláč je vláčny, čokoládový a jednoduchý na prípravu.
LS0tCnRpdGxlOiAiTWFtaW4gYmFuw6Fub3bDvSBrb2zDocSNIgphdXRob3I6ICJBZGFtIE1pY2hhbGVjICA8YnI+Cihyb2Rpbm7DvSByZWNlcHQgeiBkZXRzdHZhKSIKZGF0ZTogIkRlY2VtYmVyIDIwMjUiCm91dHB1dDogCiAgaHRtbF9ub3RlYm9vazoKICAgIHRvYzogdHJ1ZQogICAgdG9jX2Zsb2F0OiB0cnVlCiAgICB0aGVtZTogdW5pdGVkCiAgICBoaWdobGlnaHQ6IHRhbmdvCmVkaXRvcl9vcHRpb25zOiAKICBtYXJrZG93bjogCiAgICB3cmFwOiA3MgotLS0KCmBgYHtyfQprbml0cjo6b3B0c19jaHVuayRzZXQoCiAgZWNobyA9IFRSVUUsCiAgbWVzc2FnZSA9IEZBTFNFLAogIHdhcm5pbmcgPSBGQUxTRQopCmBgYAoKU3ByYWNvdmFuw6kgYSBpbsWhcGlyb3ZhbsOpIHJlY2VwdG9tIHB1Ymxpa292YW7DvW0gbmEgIApbTWFtaW4gYmFuw6Fub3bDvSBrb2zDocSNIOKAkyBEb2Jyw6kgamVkbG9dKGh0dHBzOi8vZG9icmVqZWRsby5wbHVza2Euc2svdHJlbmR5L21hbWluLWJhbmFub3Z5LWtvbGFjLXBldHJhLXRvdGhvdmEtdGlldG8tc2xhdm5vc3RuZS1yZXp5LW1pbHVqZS1vZC1kZXRzdHZhKXt0YXJnZXQ9Il9ibGFuayIgcmVsPSJub29wZW5lciJ9CgojIFBlxI1lbmllIGtvbMOhxI1hCgojIyBUcmFkacSNbsO9IGt1Y2h5bnNrw70gcG9zdHVwCgpQcmkgcHLDrXByYXZlIGtvbMOhxI1hIHByYWN1amVtZSBwb2RvYm5lIGFrbyBzIGRhdGFiw6F6b3Ug4oCTIGthxb5kw6EKaW5ncmVkaWVuY2lhIG3DoSBzdm9qIHbDvXpuYW0gYSBhxb4gaWNoIHNwcsOhdm55bSBzcG9qZW7DrW0gdnpuaWtuZQp2w71zbGVkbsO9IGtvbMOhxI0uCgojIyMgWsOha2xhZG7DqSBzdXJvdmlueQoKYGBge3J9Ck92b2NpZSA8LSBjKCJCYW7DoW4iLCAiQmFuw6FuIiwgIkJhbsOhbiIpClNsYWRrb3N0IDwtIGMoMywgNCwgMikKS29uemlzdGVuY2lhIDwtIGMoIm3DpGtrw6EiLCAia3LDqW1vdsOhIiwgImplbW7DoSIpCmBgYAoKYGBge3J9CmNlc3RvIDwtIGRhdGEuZnJhbWUoT3ZvY2llLCBTbGFka29zdCwgS29uemlzdGVuY2lhKQpwcmludChjZXN0bykKYGBgCgpgYGB7cn0KcHJpbnQoY2VzdG8kU2xhZGtvc3QpCnByaW50KG1lYW4oY2VzdG8kU2xhZGtvc3QpKQpzdW1tYXJ5KGNlc3RvKQpgYGAKCiMjIFByaWRhbmllIMSNb2tvbMOhZHkKCmBgYHtyfQpDb2tvbGFkYSA8LSBjKFRSVUUsIFRSVUUsIFRSVUUpCmNlc3RvIDwtIGNiaW5kKGNlc3RvLCBDb2tvbGFkYSkKcHJpbnQoY2VzdG8pCmBgYAoKIyMgTm92w6EgdnJzdHZhIGtvbMOhxI1hCgpgYGB7cn0Kbm92YS52cnN0dmEgPC0gZGF0YS5mcmFtZSgKICBPdm9jaWUgPSAiS2FrYW8iLAogIFNsYWRrb3N0ID0gNSwKICBLb256aXN0ZW5jaWEgPSAidmzDocSNbmEiLAogIENva29sYWRhID0gVFJVRQopCgpjZXN0byA8LSByYmluZChjZXN0bywgbm92YS52cnN0dmEpCnByaW50KGNlc3RvKQpgYGAKCiMjIFByZWjEvmFkIGluZ3JlZGllbmNpw60KCmBgYHtyfQpsaWJyYXJ5KGtuaXRyKQpsaWJyYXJ5KGthYmxlRXh0cmEpCgprYWJsZSgKICBjZXN0bywKICBkaWdpdHMgPSAyLAogIGFsaWduID0gYygibCIsImMiLCJsIiwiYyIpLAogIGNhcHRpb24gPSAiUHJlaMS+YWQgaW5ncmVkaWVuY2nDrSBiYW7DoW5vdsOpaG8ga29sw6HEjWEiCikgJT4lCmthYmxlX3N0eWxpbmcoCiAgYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImhvdmVyIiwgImNvbmRlbnNlZCIsICJyZXNwb25zaXZlIiksCiAgZnVsbF93aWR0aCA9IEZBTFNFLAogIHBvc2l0aW9uID0gImNlbnRlciIKKQpgYGAKCiMgVml6dWFsaXrDoWNpYSB2w71zbGVka3UKCmBgYHtyfQpsaWJyYXJ5KGdncGxvdDIpCgpnZ3Bsb3QoY2VzdG8sIGFlcyh4ID0gS29uemlzdGVuY2lhLCB5ID0gU2xhZGtvc3QpKSArCiAgZ2VvbV9wb2ludChzaXplID0gMykgKwogIHRoZW1lX21pbmltYWwoKSArCiAgbGFicygKICAgIHRpdGxlID0gIlRleHTDunJhIGEgc2xhZGtvc8WlIGJhbsOhbm92w6lobyBrb2zDocSNYSIsCiAgICB4ID0gIktvbnppc3RlbmNpYSIsCiAgICB5ID0gIlNsYWRrb3PFpSIKICApCmBgYAoKIyBWw71zbGVkb2sKCkJhbsOhbm92w70ga29sw6HEjSBqZSB2bMOhxI1ueSwgxI1va29sw6Fkb3bDvSBhIGplZG5vZHVjaMO9IG5hIHByw61wcmF2dS4K