Используя mtcars
в качестве примера данных, просто отфильтруйте строки, содержащие пропуски для отображаемых переменных:
library(tidyverse)
set.seed(42)
mtcars_na <- mtcars %>%
mutate(mpg = sample(c(mpg, rep(NA, 2)), length(mpg)))
ggplot(mtcars_na, aes(hp, mpg, color = cyl)) +
geom_point()
#> Warning: Removed 2 rows containing missing values (geom_point).
mtcars_na %>%
# Add row id
rowid_to_column() %>%
# filter for missings in one of the vars used in the plot
filter(is.na(hp) | is.na(mpg) | is.na(cyl))
#> rowid mpg cyl disp hp drat wt qsec vs am gear carb
#> 1 29 NA 8 351 264 4.22 3.17 14.5 0 1 5 4
#> 2 30 NA 6 145 175 3.62 2.77 15.5 0 1 5 6
Создано в 2020-03-31 пакетом prex (v0.3.0)