library(tidyverse)
<- "https://vincentarelbundock.github.io/Rdatasets/csv/palmerpenguins/penguins.csv"
d_path <- read_csv(d_path)
d nrow(d)
[1] 344
May 14, 2023
Filtern Sie alle Zeilen mit fehlende Werte im Datensatz penguins
!
Categories:
---
exname: filter-na2
expoints: 1
extype: string
exsolution: NA
categories:
- 2023
- eda
- na
- string
date: '2023-05-14'
slug: filter-na2
title: filter-na2
---
# Aufgabe
Filtern Sie alle Zeilen *mit* fehlende Werte im Datensatz `penguins`!
</br>
</br>
</br>
</br>
</br>
</br>
</br>
</br>
</br>
</br>
# Lösung
## Setup
```{r}
library(tidyverse)
d_path <- "https://vincentarelbundock.github.io/Rdatasets/csv/palmerpenguins/penguins.csv"
d <- read_csv(d_path)
nrow(d)
```
## Weg 1
```{r}
d %>%
filter(!complete.cases(.)) %>%
nrow()
```
## Weg 2
```{r}
d %>%
filter(if_any(everything(), ~ is.na(.))) %>%
nrow()
```
---
Categories:
- 2023
- eda
- na
- string