# Create ugly theme with primary colours.
ugly <- define_palette(
swatch = c('black', 'red', 'green', 'blue', 'brown', 'purple', 'yellow'),
gradient = c(lower = 'red', upper = 'green')
)
ggthemr(ugly)
Run the code above in your browser using DataLab