Merge pull request #3 from KatjaKo/katja-dev

icc dashboard finalized

Author: KatjaKo

quarto-dashboard/dashboard.html renamed to quarto-dashboard/ICC_dashboard.html

@@ -3,6 +3,10 @@ title: "Immunotechnology Cake Club"
 format: 
   dashboard: 
     logo: ../images/cake-emoji.png
+    nav-buttons: 
+    - icon: github
+      href: https://github.com/ImmunTech/CakeClub
+theme: minty
 ---
 
 ```{r}
@@ -216,22 +220,100 @@ choco_yes %>%
 ```
 :::
 
-# Global cakes 🌍
+# Global cakes
 
-## Row {height="40%"}
+## Row {height=50%}
 
 ```{r}
-#| title: Global cakes
+#| label: prepare global cakes
 
 global_cakes <- 
     cake_data %>%
     filter(Nationality_of_the_cake != "Swedish")
 
+global_cakes_max <- 
+    global_cakes %>%
+    filter(Score == max(Score)) %>%
+    mutate(Score = round(Score, 1))
+
+max_baker <- global_cakes_max$Who
+max_cake <- global_cakes_max$Cake
+max_score <- global_cakes_max$Score
+```
+
+```{r}
+#| title: Summary
+
+global_cakes %>%
+    select(Who, Cake, Score) %>%
+    arrange(desc(Score)) %>%
+    gt() %>%
+    fmt_number(
+        columns = Score,
+        decimals = 1
+    ) %>%
+    tab_header(
+        title = md("**Global Cakes**"),
+        subtitle = "Best global cake?"
+    ) %>%
+    cols_label(
+        Who = md("**Baker**"),
+        Cake = md("**Cake**"),
+        Score = md("**Score**")
+    )
 ```
 
-## Row {height="60%"}
+### Row - Value boxes {height=10%}{width="20%"}
+
+::: {.valuebox icon="award" color="#E7C484"}
+`{r} max_baker`
+
+`{r} max_cake `
+
+`{r} max_score `
+:::
+
+### Row - Card {height=20%}{width="20%"}
+::: {.card title="Basque cheese cake"}
+![](../images/Baker17.png){width="100%"}
+:::
+
+## Column - Global cakes without 🍫🧀🍓🫐 {.tabset}
 
 ```{r}
-#| title: Data
+#| title: Plot 1
+
+global_cakes_other <- 
+    global_cakes %>% 
+    filter(Chocolate == "no" & Berries == "no" & Cheesecake == "no")
+
+global_cakes_other %>%
+    ggplot(aes(x = Who, y = Cake, color = Job_group)) +
+    geom_point(size = 4) +
+    theme_minimal() +
+    theme(axis.text = element_text(size = 12),
+          axis.text.x = element_text(angle = 45, hjust = 1),
+          axis.title = element_text(size = 14),
+          legend.text = element_text(size = 12),
+          legend.title = element_text(size = 14)) +
+    labs(x = "Baker", y = "Cake", color = "Job Title") + 
+    scale_color_manual(values = c("#F7D379", "#C4D6E7", "#F9B288", "#ACC791"))
+```
+
+```{r}
+#| title: Plot 2
+
+global_cakes_other %>%
+    ggplot(aes(x = Who, y = Cake, color = Nationality_of_the_cake)) +
+    geom_point(size = 4) +
+    theme_minimal() +
+    theme(axis.text = element_text(size = 12),
+          axis.text.x = element_text(angle = 45, hjust = 1),
+          axis.title = element_text(size = 14),
+          legend.text = element_text(size = 12),
+          legend.title = element_text(size = 14)) +
+    labs(x = "Baker", y = "Cake", color = "Cake origin") + 
+    scale_color_manual(values = c("#F9C7D4", "#859E91", "#A7ABDE", "#D0BBA8", "82B2C0"))
+```
+
 
-```