R 繪製餅圖

程式：

library(plotrix) options(digits=2) rm(list=ls()) PieValues <- c(10, 12, 7, 16, 8) PieNames <- c("問項A", "問項B", "問項C", "問項D", "問項E") PiePortion <- 100 * (PieValues / sum(PieValues)) PieLabels <- c( sprintf("%s (%.2f%%)", PieNames[1], PiePortion[1]), sprintf("%s (%.2f%%)", PieNames[2], PiePortion[2]), sprintf("%s (%.2f%%)", PieNames[3], PiePortion[3]), sprintf("%s (%.2f%%)", PieNames[4], PiePortion[4]), sprintf("%s (%.2f%%)", PieNames[5], PiePortion[5])) PieTitle <- '某題項' PieSubTitle <- '比重圖' pie3D(PiePortion, labels=PieLabels, explode=0.1, main='', labelcex=0.8) title(PieTitle, sub=PieSubTitle, cex.main=2, cex.sub=1.5, col.main= "blue", col.sub = "red")

輸出：