Learn more about the colourlovers package: https://github.com/andrewheiss/colourlovers

Many color palettes available from: https://www.colourlovers.com/lover/sugar%21 https://www.colourlovers.com/lover/koala988

copperRoof <- clpalette('82200')
capuccino <- clpalette('9145')
capuccino2 <- clpalette('2944380')
sugar <- clpalette('629637')
ovationNature <- clpalette('1168418')
freshCutWood <- clpalette('221823')
influenza <- clpalette('301154')
barnacles <- clpalette('4277400')
seaDNA <- clpalette('1813312')
takeChance <- clpalette('2946420')
barelyBreathing <- clpalette('2650179')
letGo <- clpalette('2646420')
yesterday <- clpalette('2648264')
sayWho <- clpalette('2636757')
october <- clpalette('2619481')
bitterTruth <- clpalette('1074699')
future <- clpalette('974615')
autumnForest <- clpalette('1349459')
reallyTired <- clpalette('651292')

View code:

plot(reallyTired, type = 'pie')

barplot(VADeaths, 
        col = swatch(reallyTired)[[1]], 
        border = NA, 
        beside = TRUE, 
        horiz = FALSE, 
        xlab = "", 
        ylab = "", 
        axisnames = FALSE)