Tento dokument prezentuje poznatky z ochutnávky piv náhodného vzorku obyvatel ČR.
# OVERALL AVERAGES
dta_mean <- dta_all[c(1:85,103:153,171:204),] # removing Klarka N coz there is no "hodnocení"
dta_mean$hodnoceni2 <- (dta_mean$vune + dta_mean$chut + dta_mean$vocas)/3
dta_mean$hodnoceni3 <- (dta_mean$vune + dta_mean$chut + dta_mean$vocas + dta_mean$hodnoceni)/4
dtableMean <- dta_mean |> # Creating average table
group_by(znacka) |>
summarize(CICH = mean(vune),
CHUT = mean(chut),
VOCAS = mean(vocas),
HODNOCENI = mean(hodnoceni),
HODNOCENI2 = mean(hodnoceni2),
HODNOCENI3 = mean(hodnoceni3)) |>
arrange(HODNOCENI)| znacka | CICH | CHUT | VOCAS | HODNOCENI | HODNOCENI2 | HODNOCENI3 |
|---|---|---|---|---|---|---|
| Rebel | 3.1 | 3.6 | 1.9 | 2.3 | 2.866667 | 2.725 |
| Svijany | 3.0 | 2.8 | 2.7 | 2.5 | 2.833333 | 2.750 |
| Platan | 2.7 | 3.4 | 2.8 | 3.2 | 2.966667 | 3.025 |
| DE_pivo | 4.6 | 3.9 | 3.5 | 3.5 | 4.000000 | 3.875 |
| Argus | 4.3 | 4.9 | 3.9 | 3.8 | 4.366667 | 4.225 |
| Klasik | 4.1 | 3.9 | 3.5 | 3.8 | 3.833333 | 3.825 |
| Krusovice | 3.5 | 4.6 | 4.7 | 3.9 | 4.266667 | 4.175 |
| Kozel_plech | 3.6 | 4.9 | 4.6 | 4.1 | 4.366667 | 4.300 |
| Radegast | 4.4 | 4.6 | 4.3 | 4.6 | 4.433333 | 4.475 |
| Argus_12 | 3.9 | 5.1 | 3.7 | 4.7 | 4.233333 | 4.350 |
| Argus_bitter | 5.1 | 4.7 | 4.8 | 4.7 | 4.866667 | 4.825 |
| Bruncvik | 4.5 | 4.8 | 3.8 | 4.8 | 4.366667 | 4.475 |
| Budvar | 5.3 | 5.1 | 5.1 | 5.2 | 5.166667 | 5.175 |
| Gambrinus | 4.3 | 4.4 | 3.7 | 5.2 | 4.133333 | 4.400 |
| Kozel_sklo | 5.2 | 5.4 | 5.1 | 5.6 | 5.233333 | 5.325 |
| Starobrno_11 | 7.5 | 6.7 | 6.4 | 6.8 | 6.866667 | 6.850 |
| Branik | 4.8 | 5.8 | 5.5 | 7.0 | 5.366667 | 5.775 |
Je vidět, že …
Black B. 2000: Black books series.