オリジナルの奴は，ハロにグラデーションがあるけど...
Quartz (PDF)
r_wkt_gist_file <- "https://gist.githubusercontent.com/hrbrmstr/07d0ccf14c2ff109f55a/raw/db274a39b8f024468f8550d7aeaabb83c576f7ef/rlogo.wkt"
if (!file.exists("rlogo.wkt")) download.file(r_wkt_gist_file, "rlogo.wkt")
s = unlist(strsplit(readLines("rlogo.wkt", warn=FALSE), "[()]"))
s = lapply(s[c(4, 6, 10, 12)], function(s) as.data.frame(matrix(as.numeric(unlist(strsplit(s, "[ ,]"))), ncol=2, byrow=TRUE)))
rng = Reduce(range, s)
old = par(mai=rep(0,4))
plot(c(0, rng[2]), c(rng[1], 0), type="n", bty="n", asp=1, xaxt="n", yaxt="n", xlab="", ylab="")
junk = mapply(function(s, col) polygon(s, col=col, border=NA), s, c("#b8babf", "#ffffff", "#1e63b5", "#ffffff"))
par(old)
