Interlude I - Gummy bears

Last modified on 04. March 2026 at 19:20:27

“Gummi Bears! Bouncing here and there and everywhere; High adventure that’s beyond compare; They are the Gummi Bears.” — Gummi Bears Theme, Adventures of the Gummi Bears

General background

Theoretical background

R packages used

Data

R Code [show / hide]

gummi_tbl <- read_excel("data/gummibears.xlsx")

Table 1: Extract of the Gummi Bears dataset.

year	darkred	lightred	orange	yellow	green	white
2018	0	0	5	4	0	0
2018	0	3	1	4	1	1
2018	1	2	2	2	1	1
2018	2	0	2	1	2	3
…	…	…	…	…	…	…
2025	0	0	0	3	2	4
2025	3	0	0	2	0	3
2025	2	1	2	3	1	1
2025	1	0	2	2	2	2

R Code [show / hide]

gummi_count_tbl <- gummi_bears_tbl %>%
  rowwise() %>% 
  mutate(count_bear = sum(c_across(darkred:white)),
         count_color = sum(c_across(darkred:white) > 0)) |> 
  ungroup() |> 
  select(year, count_bear, count_color)

Table 2: Extract of the Gummi Bears dataset.

year	count_bear	count_color
2018	9	2
2018	10	5
2018	9	6
2018	10	5
…	…	…
2025	9	3
2025	8	3
2025	10	6
2025	9	5

Table 3: Extract of the Gummi Bears dataset.

year	most_liked	gender	age	height	semester
2018	lightred	male	35	193	10
2018	yellow	female	21	159	6
2018	white	female	21	159	6
2018	white	female	36	180	10
…	…	…	…	…	…
2025	white	female	28	NA	NA
2025	yellow	female	21	178	1
2025	orange	male	22	176	1
2025	darkred	female	24	170	1

Alternatives

Further tutorials and R packages on XXX

Glossary

term: what does it mean.

The meaning of “Models of Reality” in this chapter.

itemize with max. 5-6 words

Summary

References

```{r echo = FALSE, warning = FALSE, message=FALSE}
source("init.R")
```

# Interlude I - Gummy bears {#sec-temp}

*Last modified on `r format(fs::file_info("interlude-I-gummibaers.qmd")$modification_time, '%d. %B %Y at %H:%M:%S')`*

> *"Gummi Bears! Bouncing here and there and everywhere; High adventure that's beyond compare; They are the Gummi Bears." --- Gummi Bears Theme, Adventures of the Gummi Bears*

## General background

## Theoretical background

## R packages used

## Data

```{r}
gummi_tbl <- read_excel("data/gummibears.xlsx")
```

```{r}
#| echo: false
#| message: false
#| warning: false
#| label: tbl-gummi-bears
#| tbl-cap: "Extract of the Gummi Bears dataset."

gummi_bears_tbl <- read_excel("data/gummibears.xlsx") |> 
  select(year:white)

rbind(head(gummi_bears_tbl, n = 4),
      rep("...", times = ncol(gummi_bears_tbl)),
      tail(gummi_bears_tbl, n = 4)) |> 
  kable(align = "c", "pipe")
```

```{r}
gummi_count_tbl <- gummi_bears_tbl %>%
  rowwise() %>% 
  mutate(count_bear = sum(c_across(darkred:white)),
         count_color = sum(c_across(darkred:white) > 0)) |> 
  ungroup() |> 
  select(year, count_bear, count_color)
```

```{r}
#| echo: false
#| message: false
#| warning: false
#| label: tbl-gummi-bears-count
#| tbl-cap: "Extract of the Gummi Bears dataset."

rbind(head(gummi_count_tbl, n = 4),
      rep("...", times = ncol(gummi_count_tbl)),
      tail(gummi_count_tbl, n = 4)) |> 
  kable(align = "c", "pipe")
```


```{r}
#| echo: false
#| message: false
#| warning: false
#| label: tbl-gummi-sudent
#| tbl-cap: "Extract of the Gummi Bears dataset."

gummi_student_tbl <- read_excel("data/gummibears.xlsx") |> 
  select(year, most_liked:semester) 

rbind(head(gummi_student_tbl, n = 4),
      rep("...", times = ncol(gummi_student_tbl)),
      tail(gummi_student_tbl, n = 4)) |> 
  kable(align = "c", "pipe")
```

## Alternatives 

Further tutorials and R packages on XXX

## Glossary

term

: what does it mean.

## The meaning of "Models of Reality" in this chapter.

- itemize with max. 5-6 words

## Summary

## References {.unnumbered}