vis_dat(airquality)
if (FALSE) {
# experimental colourblind safe palette
vis_dat(airquality, palette = "cb_safe")
vis_dat(airquality, palette = "qual")
# if you have a large dataset, you might want to try downsampling:
library(nycflight13)
library(dplyr)
flights %>%
sample_n(1000) %>%
vis_dat()
flights %>%
slice(1:1000) %>%
vis_dat()
}
Run the code above in your browser using DataLab