March 27, 2023
Im Datensatz mariokart:
Erzeugen Sie eine Spalte zu_teuer, die folgende Prüfung durchführt: total_pr > 100.
Pakete starten:
# Attaching packages: easystats 0.6.0 (red = needs update)
✔ bayestestR 0.13.1 ✔ correlation 0.8.4
✔ datawizard 0.9.0 ✔ effectsize 0.8.6
✔ insight 0.19.6 ✔ modelbased 0.8.6
✔ performance 0.10.8 ✔ parameters 0.21.3
✔ report 0.5.7 ✖ see 0.8.0
Restart the R-Session and update packages in red with `easystats::easystats_update()`.Daten importieren:
mariokart <-
mutate(mariokart, zu_teuer = total_pr > 100)
mariokart2 <-
select(mariokart, total_pr, zu_teuer)
head(mariokart2) total_pr zu_teuer
1 51.55 FALSE
2 37.04 FALSE
3 45.50 FALSE
4 44.00 FALSE
5 71.00 FALSE
6 45.00 FALSECategories:
---
exname: mutate01
extype: num
exsolution: 200.755
exshuffle: no
extol: 1
expoints: 1
categories:
- datawrangling
- eda
- tidyverse
- dplyr
- num
date: '2023-03-27'
slug: mutate01
title: mutate01
---
```{r global-knitr-options, include=FALSE}
library(tidyverse)
library(exams)
```
# Aufgabe
Im Datensatz `mariokart`:
Erzeugen Sie eine Spalte `zu_teuer`, die folgende Prüfung durchführt: `total_pr > 100`.
</br>
</br>
</br>
</br>
</br>
</br>
</br>
</br>
</br>
</br>
# Lösung
Pakete starten:
```{r}
library(easystats)
library(tidyverse) # startet das Paket tidyverse
```
Daten importieren:
```{r}
mariokart <- data_read("https://vincentarelbundock.github.io/Rdatasets/csv/openintro/mariokart.csv")
```
```{r}
mariokart <-
mutate(mariokart, zu_teuer = total_pr > 100)
mariokart2 <-
select(mariokart, total_pr, zu_teuer)
head(mariokart2)
```
---
Categories:
- datawrangling
- eda
- tidyverse
- dplyr
- num