R: Pie graphics

Abstract: Howe to plot pie charts in R

The default function pie() in R

Definition of filled colors

#few slices

pie(rep(1,24), col = rainbow(24), radius = 0.9, main='24 colors')

#many slices

n=100

pie(rep(1, n), labels = "", col = rainbow(n), border = NA, main = 'continuous colors')

#address colors of slices

pie.sales <- c(0.12, 0.3, 0.26, 0.16, 0.04, 0.12)

names(pie.sales) <- c("Blueberry", "Cherry", "Apple", "Boston Cream", "Other", "Vanilla Cream")

pie(pie.sales, main='Default colors') # default colours

pie(pie.sales, col = c("purple", "violetred1", "green3", "cornsilk", "cyan", "white"),

main='Defined colors')

#fille with grey

par(mfrow=c(2,2), mar=c(2,2,2,1), oma=c(1,1,1,1))

pie(pie.sales, col = gray(seq(0.4, 1.0, length = 6)), labels=gray(seq(0.4, 1.0, length = 6)),

main='Levels of grey color')

pie(pie.sales, density = 10, angle = 15 + 10 * 1:6, labels=15 + 10 * 1:6,

main='Option:anlges')

pie(pie.sales, density = 5*1:6, angle =15, labels=5*1:6, main='Option: density')

#clockwise and unclockwise

par(mfrow=c(2,1), mar=c(2,2,2,1), oma=c(1,1,1,1))

#clockwise

pie(pie.sales, clockwise=T, main = "pie(*, clockwise = TRUE)")

segments(0, 0, 0, 1, col = "red", lwd = 2)

text(0, 1, "init.angle = 90", col = "red")

pie(pie.sales, clockwise=F, main = "pie(*, clockwise = FALSE)")

segments(0, 0, 1, 0, col = "red", lwd = 2)

text(1.2, 0.1, "init.angle = 0", col = "red")

#Adding of labels

par(mfrow=c(2,2), mar=c(2,4,2,4), oma=c(1,1,1,1))

pie(pie.sales, main='Default')

pie(pie.sales, labels=rep('a',6), main='Redefined labels')

pie(pie.sales, labels=paste(names(pie.sales), pie.sales, sep='-'), main='Names with values')

pie(pie.sales, labels='', main='No labels')

#Adding of legends

par(mfrow=c(1,1), mar=c(2,4,2,4), oma=c(1,1,1,1))

colors<-c("purple", "violetred1", "green3", "cornsilk", "cyan", "white")

pie(pie.sales, labels="")

legend("topleft", names(pie.sales), cex=0.8, fill=colors)

legend("topright", names(pie.sales), cex=0.8, fill=colors)

legend("bottomleft", names(pie.sales), cex=0.8, fill=colors)

legend("bottomright", names(pie.sales), cex=0.8, fill=colors)

3D pie chart

library(plotrix)

par(mfrow=c(2,1), mar=c(2,4,2,4), oma=c(1,1,1,1))

pie3D(pie.sales, explode=0)

pie3D(pie.sales, explode=0.2)

Writing date: 2012.09.11, 2015.02.17