if (FALSE) {
# View CVD scores
data(vangogh_cvd_scores)
# Find most accessible palettes
palette_summary <- aggregate(
min_distance ~ palette,
data = vangogh_cvd_scores,
FUN = mean
)
palette_summary[order(-palette_summary$min_distance), ]
# Filter by CVD type
deutan_scores <- vangogh_cvd_scores[
vangogh_cvd_scores$cvd_type == "Deuteranopia (red-green)",
]
deutan_scores[order(-deutan_scores$min_distance), ]
}
Run the code above in your browser using DataLab