data <- data.frame(x = c(1,2),
y = c(1,2),
z = c("a","b")
)
ggplot2::ggplot(data, ggplot2::aes(x = x, y = y, colour = z)) +
ggplot2::geom_point() +
ggplot2::scale_colour_manual(values = af_colours("duo"))
Run the code above in your browser using DataLab