airquality %>% cast_shadow_shift_label(Ozone, Solar.R)
# replicate the plot generated by geom_miss_point()
if (FALSE) {
library(ggplot2)
airquality %>%
cast_shadow_shift_label(Ozone,Solar.R) %>%
ggplot(aes(x = Ozone_shift,
y = Solar.R_shift,
colour = any_missing)) +
geom_point()
}
Run the code above in your browser using DataLab