R code used to produce the graph shown below.

oldpar <- par() 
par(mar=c(0,0,0,0)) 
pie(c(20, 80), init.angle=-40, cex=mycex, 
    radius=.6, 
    col=c("white", myblue), 
    label=c("Not\nblue\nPac-man", 
        "Looks\nlike\nblue\nPac-man")) 
par(oldpar)